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When Bell Laboratories unvelled 
the C programming language in 
1975, it quickly became one of the 
most popular languages in aca 
demic computing circles. More re 
cently its popularity has grown in 
Industrial and commercial applica- 
tions as well. C has been im- 
plemented on minicomputers, like 
the DEC PDP-11, on mainframes, in- 
cluding the IBM-370 and Honeywell 
6070, and now Cromemco offers C 
‘on its complete line of microcom- 
puters. 

‘What makes C so very useful and 
weltliked by programmers is its 
simplicity, It is also a very rich and 
expressive language conducive to 
structured programming style, In 
fact, with C it Is very often not 
hecessary to use an intermediate 
English-like description of a solution 


Cromemco Again 
Leads The Industry 
With New C Compiler 


to a programming problem, a com: 
mon first step in the development 
of a program: one simply forms a 
solution expressed In C. C contains 
the types of modern flow-control 
statements which are needed to 
construct readable and well-struc- 
tured programs: for (loop on condi- 
tion with an automatic end-of-loop 
statement), while (loop with test at 
top), do...whlle (loop with test at 
bottom), If...else..., switch on ex: 
pression value (known as the case 
statement in many languages), 
break, continue, and return. 

C offers a variety of data types: 
char, int, unsigned, long, float, dou: 
ble, pointers to any type of object, 
and aggregates (arrays, structures, 
and unions) of the basic types of 
data or of other aggregates, The C 

Continued on page 22 


Using String Arrays 
in Basic 

By Chris Rook 
‘Technical Sales Manager 


The implementation of the 
string function in Cromemco BASIC 
has a distinct advantage over the 

string arrays” implemented in 
some other versions of BASIC. In 
particular, Cromemco strings can 
be of arbitrary size (limited only by 
available memory size) while string 
arrays are limited in size (usually to 
128 bytes). When programming in 
Cromemco BASIC, it is important to 
understand the distinction be- 
tween a Cromemco string and the 
older type of string array. 

For example: 

Dim AS(99) 

In Cromemco BASIC this would 
allocate 100 bytes of space for the 
single dimension string "AS". In a 
string array this would allocate 990 
bytes of space for the two dimen 

Continued on page 22 


STRESS 

A Program for Linear 
Static Analysis of 
Engineering Structures 
vko Nardin, Ph.D. 


Miljenko Srikoc, BSe 
|. Introduction 
STRESS is the acronym for 
sTRuctural Engineering Systems 
Solver. It is a computer program 
which performs linear static analy- 
sis of engineering structures. In 
spite of the appearance of a 
number of structural analysis 
packages, STRESS remains one of 
the most popular programs in that 
field among the practicing struc- 
tural engineers. 
The development of STRESS 
Continued on page 14 
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GUEST COLUMNIST 


Last issue we introduced the 
concept of a monthly “Guest Col- 
umnist” to offer ideas as to what 
we may expect from micros inthe 
future. Since then, Cromemco has 
made a very generous offer. If 
there is enough interest by mem- 
bers in futurist activities of this 
sort, Cromemco will put up some 
prizes — some very substantial 
prizes — and we can turn this into 
a contest. 

The rules are simple. Each issue. 
for the next six issues, we will 
feature the best ideas submitted. 
The ideas should revolve around 
how micros will affect our lives in 
the next 20 years. and should be as 
Specific as possible. At the end of 
the contest period. we will have an 
Independent panel of Judges de- 
termine the winners based on 
such criteria as feasibility, ease of 
use, general acceptance of the 
idea by the public. simplicity of 
manufacture, practicality. scope 
and social effects of the idea, and 
soon. Togive you an ideaastohow 
big the “computer revolution” is.a 
business acquaintance told me 
that he heard a speech by a vice 
president of Texas Instruments 
who stated: “By 1990 there will be 
100,000 bytes of memory for 
every man, woman, and child in 
the entire world.” Food for 
thought, eh? 

From chatting with members 
from all over the world, | believe 
there are a lot of worthy ideas out 
there. This is the place to show- 
case those ideas. and perhaps win 
some great prizes. How about it? 


ARTICLES IN THE MILL 

Your response has been quite 
encouraging and we are now start- 
ing to build an inventory of articles 
for future issues. They include 
such diverse topics as Data En- 
cryption, Speech Processing. 
Educational Applications. TWX In- 
terfacing, Micro-Monitoring of 
Hospital Patients, Computer 
Sculpture, A Program for Depre- 
ciation Schedules, Financial Track- 
ing of a Multi-Currency. Multi- 
Bank Corporation, and even asoft- 
ware package, for banks that pro- 


duce Federal Income Tax Data for 
Individuals on Both Monthly and 
Year-End Statements. 

We have many more articles in 
the works, and are still contacting 
members who indicated they 
would be willing to submit mater- 
lal for publication, Some of the 
most useful articles are those deal- 
ing with practical applications ina 
given engineering, scientific, or 
business environment. We would 
find your practical experiences 
very valuable and solicit your 
editorial contributions. 


GOOD NEWS 


We have entered, full swing, in- 
to the new year and are discover- 
ing some exciting software devel- 
‘opments. Through your calls and 
letters, we have found that most 
of you are looking for a certain 
package to perform specific tasks. 
‘And, we have been able to find the 
right source in many cases. But, 
the really “good news” is that a 
great deal of software that has 
been under development for two 
or three years is starting to 
emerge. 

‘There are new accounting pack- 
ages, inventory packages, job 
costing packages, medical and 
dental packages, banking pack- 
ages, and financial planning 
packages, There are also new ver- 
sions of software, modified to run 
under CDOS and especially 
CROMIX, 

With the emergence of this soft- 
ware, we enter a new phase in the 
evolution of micros. Much of this 
generation of software offerings 
will be advertised on the pages of 
I/QNews. We encourage you totry 
these sources first. Also, if you 
find software that you can recom- 
mend, please let us know. We will 
contact the supplier and attempt 
to arrange evaluations so that 
others can know about it, too. 


Richard Kaye 
Editor & Publisher 


Lynn Platzek 
itorial Assistant 


Introduction to C 


by David K. eh? 


Since C is a relatively new language. many people are 
not yet familiar with it. This article is designed to pro- 
vide an introduction to the C language for Cromemco 
users who may be considering using it on their systems. 

‘AC program consists of one or more separately-com- 
piled modules which are combined to form a single exe- 
cutable file. Each module of a C program consists of 
definitions of symbols and macros, external data defini- 
tions, and 0 or more functions, External data can be ex- 
tern (visible to all modules in the program), or static 
(visible only to functions within that one module). Func- 
tions are not nested, as are procedures in block-struc- 
tured languages such as Algol and Pascal. Each function 
Is visible from all functions in all modules in the pro- 
gram, A function definition consists of declarations for 
up to 32 arguments followed by the function body, 
which is a single compound statement containing all of 
the local data definitions and statements needed to 
carry out the task of the function, Local data are data 
which are visible only to the function enclosing them, 
and are classified as either auto or static, auto data exist 
only during the time In which the function is executing: 
they cease to exist and their values are lost when the 
function returns control to the function which called it. 
static data exist for the lifetime of the entire program 
and their values are never lost. Subsequent calls to a 
function will find the final static values which existed 
during the function's previous incarnation. 

All data can be given initial values at the time they are 
declared. The initialization of static and extern data oc- 
curs once, conceptually at the start of execution of the 
program. auto data Is initialized to the declared values 
each time the enclosing function is executed. 

Functions may be called recursively, either directly or 
indirectly, and all functions may return a single value, 
although this is not required by C. Arguments are pass- 
ed to C functions by value. not by reference. This means 
that the value of an argument, not its address, is passed 
to a function. The function therefore cannot inadver- 
tently change the value of an argument, a common 
source of programming errors in languages such as For- 
tran which do pass arguments by reference. A multitude 
of programmers have discovered the hard way that con- 
stants In such languages are not really constant after a 
function has forgotten itself and assigned a new value 
to an argument which started life as a constant: 

Sometimes, however, it is necessary for a function to 
change a Variable outside of its scope or to return more 
than a single value. and C allows this. When an array 
name is used as an argument to a function, C converts 
this to a pointer to the first element of the array. The 
function can then declare the formal argument to be an 
array and load new values into the array. which in reality 
is the array in the calling function. Also, variables called 
pointers can be passed to a function which can then 
assign new values to the objects pointed to by the 
pointers, 


6 


Data 
Cromemco C has the following basic data types: 
char 


A char contains a single byte. which can be an ASCII 
character or a number in the range 0-255, A char is 
never negative. short is the same as int, which can con- 
tain a signed value in the range 32768 to 32767. An 
unsigned variable holds an unsigned integer in the range 
0 to 65.535. A long variable is used when a larger integer 
value is required; the approximate range is ~2E9 to 
2E9. float and double variables hold BCD (Binary Coded 
Decimal) floating point values in the range + 9.99E ~ 65 
to + 9.99E +62. The digit precision for float is 6, and 14 
for double. 


C Statements 


Statements in C are terminated, not separated, @ 
semicolons. C will continue to scan a statement until it 
finds a semicolon, so a missing semicolon usually causes 
a syntax error. Statements can be grouped together by 
braces, { }. into a single block, or compound state- 
ment. A compound statement can be used wherever a 
single statement can be used. Whether or not braces are 
better than BEGIN-END is frequently debated; they are 
certainly less bother to type and read. (We won't even 
‘suggest where the braces should be placed or with what 
indentation—each programmer is convinced that his 
convention makes the most sense.) 
C offers the following flow-control statements. The 
list is short, easily learned, but not lacking in utility, 
: 
‘The semicolon can be used by itself as a place-taking 
Null statement. 
break: 
‘The break statement causes control to pass from the 
enclosing do, for, switch, or while statement. 
continu 
‘The continue statement causes control to pass to the 
Joop continuation part of the enclosing do, for, or while 
statement, 
do 


stmt 
while (expr): 
The do statement repeatedly executes stmt while ex 
pris true. The test is done at the end of the loop. 
for (expr: expr2: expr3) 
stmt 


The for statement evaluates expri then repeatedly 
executes stmt and evaluates expr3 so long as expr2 is 
true. The test is done before each loop. 


to label; Yes, C does have a goto. It is rarely used. 


if (expr) 
stmt 
else 
stmt2 


If expr is true, stmtt is executed, otherwise stmt2 is 
executed. The else stmt2 part is optional. 

return; 
or 
return expression: 

The return statement returns control toa calling func: 
tion. It can optionally return a value of the type declared 
for the enclosing function. 

switch (int-expr) { 
case const-expr: stmt 


default: stmt 


The switch statement permits a multi-way branch. int- 
expr is evaluated and control proceeds to the stmt 
preceded by a const-expr equal to int-expr. If no match 
exists, control proceeds to the default statement. If 
there's no default, control falls through. 

while (expr) 
stmt 

‘The while statement repeatedly executes stmt so long 
as expr is true. The test is done before each loop. 

‘A symbol followed by a colon, :, can precede a state- 
ment for use as the destination of a goto. 


€ Operators 


One of the strengths of C is its large number of 
operators, There are operators for performing assign 
ment, arithmetic, logical, relational, and unary opera- 
tions. It has the usual +, -, /, and *, as well as %, re- 
mainder division. C also has: 


bitwise operators: 


a and, 

A exclusive or, 
| inclusive or: 
logical operators: 

a& = and. 


lI or: 
shift operators: 


<< left shift, 
>> —_right shift; 
relational operators: 


less than, 
greater than. 
less than or equal to. 
greater than or equal to, 
equal to, 
not equal to; 
C contains several unary operators, some of which are 
unique to C: 
: indirection, 
& address of an object. 
~ arithmetic negation. 


1 logical negation, 
~ one’s complement, 
(type) cast. 
sizeof size in bytes. 
A cast converts the expression which follows it to the 
specified type. 
Two extremely useful unary operators are + + (incre- 
ment) and —— (decrement). When + + precedes an 


operand, the operand is incremented by one before its 
value is used in an expression. When + + follows an 
operand, the value is used before the operand is in- 
cremented. This permits the incrementing of indices to 
be combined with other expressions to yield concise, yet 
readable, code, as shown by the following lines, which 
obtain a character from an array and increment the 
subscript to be ready for the next access: 
c = arrayfi+ +: 

C contains the usual assignment operator =, along 
with compound assignment operators formed by one of 
the operators, + — * /%>><<& | followed by =. An 
example will illustrate the effect of a compound assign- 
ment operator: 

array[sub] + = 3; 

This expression adds three to the value of array[sub], 
where array might be an array of integers. At first 
glance this form of assignment might look odd, but one 
quickly realizes how much easier this is to use than the 
Fortran 

array(sub) = array (sub) + 3 

Another aspect of assignment operators in C is that 
they are treated as any other binary operator. This 
means that an assignment is an expression which can be 
nested inside a more complicated expression, yielding 
efficiency both to the C source program and the gener- 
ated object code, This extremely useful treatment of 
assignment is found in only a few other programming 
languages. 

An example which shows how to use this feature is 

while ( (c = getchar() ) = EOF) 
process ( ¢ ); 

This example shows a loop which will get one 
character from the file stdin (described later in this arti- 
cle) and process it unless getchar returns EOF (a defined 
value) instead of a character. A less expressive language 
would need to have two reads, one preceding the loop to. 
handle the case in which EOF is detected on the first 
read. and another inside the loop to get a character for 
the next test. The parentheses around the assignment 
are necessary because assignment has a lower operator 
precedence than 


Pointers, Arrays, Structures, and Unions 


C contains variables called pointers which are defined 
to contain the actual memory address of other objects. 
A pointer can be loaded with the address of a data object 
or a function, the value of another pointer, or an integer. 
Expressions can then obtain or change the value of the 
object “pointed to” by the pointer by use of the indirec- 
tion operator. *. This allows one function to pass a 
pointer to a mass of data, such as an array. to another 
function, rather than passing the entire mass of data to 

Continued on next page 
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Introduction to C 


ontinued from page 7 


the function. C in fact has no facility for passing the 
values of a block of data around between functions. The 
second function can then perform its task with the 
given data and return, A pointer can be incremented, 
and when it is. C conveniently scales the increment by 
the size of the object to which the pointer is declared to 
point. For instance, an integer requires two bytes of 
memory, so when a pointer to an integer is incremented 
by 1. as it might be when using a pointer to step 
through an array of integers, C adds a value of 2 to the 
pointer, thereby releasing the programmer from the 
Fesponsibility of knowing how large the various data 
types are. } 

Arrays in C can contain any of the basic types of data, | 
or constructed types such as other arrays, structures, or 
unions. For example. 

char aname{ 10420} 
ls a 10 x 20 array of characters. Array elements are 
numbered starting with O. 

A structure is a collection of data objects, such as 
variables, pointers, arrays, other structures, or unions, 
under one name. C structures are similar in function to 
Pascal and Cobol records, although they cannot be mov. 
ed around or compared with a single statement as can 
Cobol records. 

A simple structure might be declared 

struct { 
char flag: 
int count 
} sname: 

sname is the name of the structure, which can be used 
with the dot operator, ., to reference the members of 
the structure: sname.flag references the member of 
sname whose name is flag. One can also declare a pointer 
to a structure, then access the members using the 
pointer. which is really a necessary feature since a struc: 
ture itself cannot be passed as an argument to a func 
tion. Suppose that ps Is a pointer to sname; then 
ps—>flag references the member flag. 

A union permits the same block of storage to be ac 
cessed as one type of data at one time and as a different 
type of data at another. depending on the programmer's 
intention. A union is essentially a structure all of whose 
members have the same offset. A simple union might be 
declared: 

union { 
char flag: 
struct { r 
int 
ong 1: 
} data: 
) unumber: 

One might conceivably store an integer value into 
unumber.data.i, then set unumber.flag to ‘i’ to indicate 
that the union contains an integer. ea ‘ 


Input and Output 
There are no I/O statements in C. All input and output 


is done by calling functions which exist in the C library. 


‘There are 30 1/0 functions in the C library, and 10 other 

functions which perform useful tasks. In addition, the C 

library contains 46 CROMIX system call interface func- 

tions for those users who wish to use CROMIX system 
@ ais trom their € programs, 

There are 1/0 functions which create. open, and close 
files, and functions which read or write single bytes. 
lines, or block of bytes to files. A program can position to 
any location within a file for the next read or write. The 
library contains a very useful and frequently-used func- 
tion, printf, which performs formatted output. conver- 
ting the values of variables from internal form to 
human-readable form using a control string containing 
conversion specifications. A much-appreciated feature of 
this function is that the control string and the values to 
be output are separate arguments to printf. The control 
string is written unchanged except for the conversion 
specifications, which are preceded by the percent sym: 
bol, %, A conversion specification calls for the conver: 
sion and Insertion of one of the values from the remain- 
ing arguments. For example. 

printf( “the values are %d, %f, and %02x. Ks: 
where i = 25,J = 10.4, and k = 09 hexadecimal, will 
write 

‘the values are 25, 10.4, and 09. 

There {s also a function. scanf. which performs for- 
matted input, converting human-readable values to the 
appropriate values in C variables, printf and scanf have 
analogs which perform formatted 1/0 on files (fprintf 
and fscanf) and on strings (sprintf and sscanf). 


stdin, stdout, and stderr 


stdin, stdout, and stderr are three files which are 
always open and available to a C program. stdin is an in- 
put file which supplies characters from a standard input 
device, usually the user's terminal keyboard. stdout is an 
output file which delivers characters to the standard 
output device, again usually the user’s terminal. stderr 
is a file traditionally reserved for the receipt of error 
messages, which are usually delivered to the user's ter 
minal, Data from or destined for these files can be 
redirected using the CROMIX 1/0 redirection capability. 
The use of < file in the execution command line of aC 
program which reads from stdin means that the pro- 
gram will get data from file whenever it attempts to 
ead stdin, Similarly, the use of > file in the execution 
command line of aC program which writes characters to 
stdout means that the program will write the data onto 
file whenever it attempts to write to stdout. file is 
automatically created with zero length before the first 
1/0 access when output is redirected. Many existing C 
programs perform all of their 1/0 using stdin and stdout, 
Which are redirected each time the user executes the 
program. 

Currently characters written to stderr always appear 
on the user's terminal when running under the CROMIX 
system and in the same file with stdout when running 
under CDOS. CDOS itself cannot redirect 1/0. A C pro- 

om which is linked to execute under CDOS performs 
its own redirection when called on to do so. 


‘A Sample C Program 
A listing of elist.c follows this article. This program is 


supplied as part of the C package, and is used to list one 
or more source files to the terminal with line numbers 
and page breaks. 

list contains two functions: main, which does all the 
work, and testabort, which is called to check for user 
abort before each line is written. clist calls several func- 
tions which are found in the C library: fopen, fclose, 
fgets, which reads a line, fputs. which writes a line, put- 
char, which writes a single character, getmode, which 
uses the CROMIX .getmode system call to get the status 
of the user's terminal, and printf, which is used here to 
write the line number followed by a tab character (\t). 

The variables argc and argv allow aC program to use 
the arguments (in this case file names) from the com- 
‘mand line which invokes execution. 

‘The variable fp is a pointer to a special structure called 
a FILE structure which is used to indicate to the 1/0 
functions which file to read or write. 

C treats an assignment operator as any other binary 
operator, which means that an assignment is an expres- 
sion which can itself be used or tested. We see an exam- 
ple of this in elist. line number 44: 

{abort = testabort() ) = 

The variable abort is assigned a value from the call to 
the function testabort, and that value is then tested as 
part of the conditional expression, 

The symbols /* and */ are used to delimit comments, 
which may occupy several lines. Indentation has been us- 
ed to indicate to the human eye which statements are 
subordinate to others, although C ignores white space 
(tabs and spaces) in most cases, 

We see that C contains a means to define symbols like 
CR so that C programs need not contain “magic” 
numbers which have meaning only to the author of the 
program. 


Summary 


C is a very useful general-purpose programming 
language whose popularity is spreading rapidly. It is con- 
cise and expressive. The language offers many features 
which make programs easy to write, read, and maintain, 


| | About the Author 
| Dave Ellis joined Cromemco 
s | in 1978 to manage the Cobol 
product. and his interest and 
responsibilities rapidly broadened to include the 
Fortran and Ratfor packages. diagnostics soft- 
ware. and now the C product. Dave is currently 
enrolled in the Computer Science Master's 
program at the University of Santa Clara. 
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/* clist 
Copyright (c) 1980. by Cromemco, Inc., All Rights Reserved 


This program lists one or more C source files, with line 
numbers and page breaks at end of page and end of each 
file. clist aborts if the user presses Control-c. 


2 


fcontrol nsource 
finclude "stdio.h* 
finclude "modeequ.h" 
fcontrol source 


‘define CR 13 /* carriage return */ 
#define EXPCHAR @ 7* expanded-print character for dot-matrix */ 
fdefine PF 12 7* form feed */ 

#define LE 10 7* line feed */ 

‘define SP 32 /* space */ 


main( argc, argv ) 


unsigned arqc; 
char taravi li 


( 
static unsigned linenum. 


atic char Anbuf{ 258 13 
static int nunchars. 
abort = 0. 
iy 
static PILE ‘fp: 


while ( ++fnum < argc && abort == 0) [ 
fp = fopen( argvifnuml. "R" )+ 
if ( fp) 
linenum = 0; 
linecnt = 56; 
while( fgets( Inbuf. 256. fp ) s& (abort = testabort()) == 0) { 
if ( +#linecnt > 56} { 
putchar( FP); 
putchar( EXPCHAR ); 
putchar( SP }; 
fputs( argvifnum]. STDOUT ); 
putchar( CR ); 
putchar( LP ); 
putchar( LP ); 
linecnt = 1; 


1 
Print£( "t+ Sd\t", ++1inenum 
fputs( Inbuf. STDOUT ); 


} /* end while fgets */ 
fclose( fp 

+ /* end if_tp */ 
} /* end while_fnun */ 


putchar( FP ); 
} /* end main */ 


testabort () /* returns non-zero if cntl-c was hit, 0 if not */ 
{ 


} 


return ( getmode( STDIN, md_status ) & st_abort ); 


Fortran Subroutines For Opening Files 


(That Try Harder) 


Have you ever been annoyed at 
yourself when you tried to run one 
of your FORTRAN programs. and it 
bombed with an EF (end of file) er- 
ror because you had your data file 

" on the wrong disk drive? Well if so 
— of if you want to know how to 
open a file without necessarily 
knowing or caring which drive it’s 
on — the following will be of in- 
* terest to you. 
The problem described above 
would be trivial to solve if FORTRAN 
had the ability to ask the file system whether or not a 
particular file existed before attempting to open it, but 
the unfortunate facts of life are that there is no such 
‘command in the language. It is, however. possible to ac 
complish the objective by exploiting the very same EF 
error that keeps reminding us of our human failings. 
Even though FORTRAN cannot read the directories of 
your disks, the read statement does have an END = STATE: 
MENT# option which can be used to detect which disk a 
particular file is on. This option is typically used to divert 
the program flow when the last record in a file has been 
ead, so as to break Out of a read loop. in what follows. 
we will describe a different use. and thereby show how 
to open and read a file without knowing which disk it’s 
‘on. The syntax of a FORTRAN READ statement that uses 
this option is: 
READ(LUN,FORMAT,END =STMT#(LIST OF ITEMS) 

Where LUN is the logical unit number of the file. and 
the other two parameters of the read statement are 
statement numbers referring to the FORMAT state 
ment for the record to be read and the optional state- 
ment number for handling the end of file condition. 

When you try to open a file in FORTRAN on the wrong 
disk, the program cheerfully goes ahead and opens a file 
of that name on the disk you told it to (expecting that 
you obviously want to write something on it), but until 
Something has been written, it has zero length. When 
you try to read from it, you get the aforementioned end 
of file error, and back you go to square onel Unless. of 
course you have used the END =STATEMENT* option. 

The first of the two subroutines given below will try 
first to open the file you are looking for on the logged in 
disk, and then, if it is not found there, systematically go 
looking for it first on the A drive and then B.C.D. etc. un- 
til you run out of drives or until it finds the file. This is 
accomplished by using the variable | as the drive speci 
fier in the CALL OPEN statement instead of a constant, 
and assigning 0.1.2.3 etc. to I before opening the file. 


Jerome J, Tieman 


That is. we use: 
CALL OPEN(LUN.IFCB.!) 

instead of 
CALL OPEN(LUN.IFCB.0) 

Here, LUN is the logical unit number by which the file 
is to be referenced in all subsequent FORTRAN state- 
ments, IFCB is an array that contains an expanded ver- 
sion of the filename, and the third parameter is the disk 
drive selector. 

In SUBROUTINE OPENF(LUN.ILINE.IERR) given below, 
a particular disk selection is made and, after opening the 
file, an attempt is made to read a record from it. If the 
file is empty. an end of file condition occurs on the very 
first record, and the program flow for this case causes | 
to be incremented, the file that was just opened (on the 
wrong disk) to be closed, and a new open attempted 
with the next value of I. When I gets larger than the 
largest valid disk drive number in your particular 
system, you give up and go back to get a more reason- 
able filename. The calling program finds this out by 
testing the value of IERR, which Is set to zero when all is 
well, to 3 when the file is not found and to 4 when the 
string reformat subroutine didn’t like the filename you 
gave it. (It found one or more unprintable control 
characters.) Hopefully, the file you are looking for exists 
somewhere. and when you finally get there, it will not 
return the end of file condition on the very first record 
and the program flow will proceed usefully onward, 

When youcheck your directoriesafter using thismethod, 
‘you will find entries for “the filename that wasn't there” 
on all the disks that were checked unsuccessfully. These 
entries don't do much harm: since they all have zero 
length, they don’t use any disk space. and the next time 
you run your program. you will get exactly the same 
behavior. That's because we are not just looking for any 
oid file with the desired name, we are specifically look- 
ing for one that has something written on it. There is, 
however. one caveat that should be mentionedI Namely, 
there is a bug in many of the FORTRAN compiler versions 
which bites you when you try to open a file and there is 
no directory space. So make sure you have room for 
several more directory entries on all your disks before 
using them with a program that incorporates this 
technique. 

As indicated in the comments in the program listing, 
you have two options concerning the first line in the file: 
If you want to pass the opened file in the pristine state 
to the calling program. you can REWIND it before return- 
ing. In this case, the calling program will re-read the first 
line, and the net effect will be the same as a simple open 

Continued on next page 
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Fortran Subroutines 


Continued from page 11 
statement. But there is another alternative which has 
some advantages. and that is to return after reading the 
first line without rewinding the file. Why do this? There 
are two reasons: First, it is a very good idea to include a 
title line in your files anyway. and it is more efficient to 
skip past it in the file opening subroutine than to repeat 
the needed code everywhere a file is opened. Title lines 
are good because they help you keep track of what your 
files contain and verify that the correct files were used 
even if all else fails, (Have you ever tried to invent an 
eight letter filename that was supposed to remind you 
that the contents came from a run where 4 two digit 
parameters had specific values and that the date of the 
Tun was June 14 1980? [And it didn’t} You can incor- 
porate all that and even a hint as to what you had in 
mind in the first place when you have a whole line to 
play with.) The second reason you may want to skip the 
first line when reading data has to do with a conflict of 
opinion about what constitutes an end of record symbol. 
In the Industry Standard file system, an end of record is 
a carriage return-line feed pair, while in FORTRAN, it is 
Just a carriage return. Thus, FORTRAN will return a 
linefeed as the first character of every line EXCEPT THE 
FIRST. This will obviously wreak havoc with any FOR- 
MAT statements that try to read data from both the 
first line and any following lines. The simple way out Is 
to not include data on the first line, but to use this line 
as a title line instead. If you agree that this is a good 
idea, then let your file opener subroutine read the title. 
print it out for you and skip over it as it does in the ex- 
ample below, 

As another example of how a disk searching file 
opener can be used to advantage, consider the possib- 
llity that you may want to run a program that reads 
several groups of parameters and data, and that you 
want to assign specific choices to some (but not all) of 
these. Any data or parameter values that are not ex- 
plicitly given are to be assigned standard default values. 
This can be accomplished by assigning each group of 
parameters or data values a descriptive filename. and 
putting the desired default values in files having these 
Names on the disk drive with the highest number. Then, 
if you put the explicitly given data in files of the same 
names on lower numbered drives. these will be chosen 
wherever they exist, while the default data will get 
chosen for any of the files that are not found on the 
lower numbered drives. This problem often arises in 
computer modeling of complex systems, and the 
method described above is a convenient way to generate 
runs where several families of parameters are held con- 
stant from run to run while other families are changed. 

The second of the two subroutines presented below is 
named REFORM(ILINE.|FCB.IERR). It is useful even if you 
don’t want or need a disk searcher. It simply accepts a 
filename and extent in the industry standard form and 
expands it to the form required by FORTRAN. It also 
filters out any control characters (which make erasing a 
file nearly impossible) and protects you from getting 
lower case filenames as well. These are also hard to 
erase, and are a problem because if you make an error 
when you type ina filename, directory entries for that 
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exact name will be created. 
The calling sequence involves two arrays named ILINE 
and IFCB as well as our friend IERR mentioned above. 
The first array is for input, and it contains an ASCII str- 
ing denoting the filename in the industry standard 
form. while the Second is an output array which returns 
a FORTRAN compatible filename string. The input array 
can be defined either by compiling it in as follows: 
REAL ILINE3) 
DATA ILINE /"FILE.NAME’EXT'/ 
Or the filename can be gotten from the operator console 
using 


LOGICAL ILINE(72) 
READ(3.10) ILINE 
10 FORMAT(72A1) 


Note that the length of the Input array need not cor- 
respond to the length of the payload it contains, and 
that it can be longer or shorter than 12 characters as 
long as it can hold the filename plus four characters for 
the period and the extent. 

‘THIS SUBROUTINE TAKES A LUN AND A CPM FORMAT 
FILENAME, CONVERTS IT TO THE FORTRAN FORM AND 
TRIES TO OPEN THE FILE ON EITHER THE LOGGED DISK, 
OR DISK A OR DISK B, ETC 
THIS ROUTINE TRIES TO READ THE FIRST LINE IN THE FILE 
TO SEE IF IT'S THERE. SO MAKE THE FIRST LINE A TITLE 
OR A DUMMY. 
IF FILE iS NOT ON THE DEFAULT DISKS). AN EMPTY 
DIRECTORY ENTRY GETS CREATED ON IF e 
DIRECTORY 1S FULL — BAD NEWSII 
‘SUBROUTINE OPENFILUN.ILINE.IERR) 
LOGICAL ILINE(72),FC(11) 
TLINE |S A BYTE (LOGICAL 1) ARRAY, CAN BE READ AS 
FORMAT (##A1) WHERE ## 15 ANY VALUE LARGE 
ENOUGH TO HOLD THE FULL NAME. 
FULL NAME 


c FIRST REFORMAT THE FILENAME 
CALL REFORM(ILINE IFCB.IERR) 


c (CHECK FOR BAD FILENAME 
IFVERR.GT 2)RETURN 


NOW OPEN THE FILE 
‘TRY THE LOGGED DISK FIRST 
120 
woro4s 
SO 12141 
c WASNT THERE SO QUIT AND TRY THE NEXT DISK 
ENOFILE LUN 
c ‘SOONER OR LATER, YOU SHOULD GIVE UP 
IF(LGES)GOTO100 
45. CALLOPEN(LUNJFCB,) 
c READ THE DUMMY FIRST LINE 
READ(LUN.22,END = SO)ILINE 
22 FORMAT72A1) 
c ANO PRINT IT OUT 
WRITES 23)LINE e 


23 FORMAT(IX.72A1) 
INDICATE SUCCESS TO CALLING PROGRAM AND RETURN 
IF DUMMY LINES ARENT A GOOD IDEA, THEN REWIND LUN 
HERE SO THE CALLING PROGRAM GETS THE FIRST LINE 
FILE (BUT DONT FORGET THE LINE-FEED PROBLEM) 


z 
c 
c 
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REWIND LUN 30 D040K=9.11 
IERR=0 IFQUINEW).LT-32)G0TO 15, 
RETURN 


NO MORE DISKS TO TRY ILINE|J) AND.95 


WRITE3.24) 
FORMAT(’ FILE DOES NOT EXIST’ 
eR 
RETURN 
END 

‘THIS SUBROUTINE REFORMATS THE FILENAME AND 
EXTENT. 
LINE IS 
STRING 


{E INPUT STRING AND IFCB IS THE OUTPUT BIOGRAPHICAL SKETCH 

of 
SUBROUTINE REFORM(ILINE.IFCBIERR) Or. Jerome J. Tiemann 
LOGICAL ILINE(12)FCB(1) (Version 80.11) 
SCAN THE FILENAME FIELD he th hat led to this article lead back at least t 
DOIO I= 18 the early 1950's when Jerry came to Stanford to get a PhD 
CHECK FOR PERIOD DELIMITER y nere he first learned to program a 
IILINE(), £Q.46)G0TO 20, pul 


feat. There were no high 
ne had 

with ane's bare hands, 

ailable at the Stanford Corr 

(05 and. later on. one of the 

yrammer's 

e limitations of a 2000 word 


NOT A PERIOD SO CHECK THE CHARACTER AND MOVE IT ‘ festivicl 
FIRST CHECK FOR UNPRINTABLES 


IPQLINE().LT.32,00T015 5 ter 


CHANGE LOWER CASE TO UP 
ECEX)) =ILINE() 7 
I(LINE(), GT-95)1FC8() = LINE(), AND.95 gnetic dr aa 


nience of 
ONTINUE tem that required on wn plug t 
IF WE GET HERE, THERE WERE EIGHT LETTERS IN THE neve ani the fact that Jerry 
NAME en seen in of the EE grad 
NEXT CHARACTER IS EITHER A DOT OR THE EXTENT tudents than with {is continuing in 
199 prereset: it in hich was f two Minor fields) led to a 
Ftinem en aeKor0 20 a Jing relationship with the Stanford EE 

y his relationship that led to the meeting of 
coro 30 

a young gra vamed Roger Melen in the 

WRITED.21) ‘ ‘ stu ts at the time were 
FORMAT(” UNWORTHY FILENAME : roan Integra Afsloa stanel er 
JERR» 4 e but when Roger mputers. it only In: 
RETURN raaenn ais " ‘ : 
AT STATEMENT 20, | POINTS TO TH co's earliest customers, both 
sels h ersonal computer as well for those used "at 
| NOW POINTS 70 THE EXTENT rk.” Wore, for till pretty much the same as it 
\FWEQg}G0T0 30 was bn tanford, He is an the Scientific Staff of the 
SHORT FILENAME SO PAD WITH BLANKS al Electric Corp. R/D Ctr., and he works on electronic 
(FCB) =32 y and novel electronic 
eas devices for im g them. He holds over 50 patents 
cova 25 he author of over 80 technical articles, and is a Fellow of 
NOW MOVE THE EXTENT ‘ a rican Physical Society 
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began in 1962, under the direction 
of Prof. S.J. FENVES, project staff 
including Prof. R.D. LOGCHER. Prof. 
SP, MAUCH. K.F. REINSCHMIDT 
and R.L. WANG. The whole project 
took place at M.T., under general 
supervision of Prof. J.M. BIGGS, 
and the biggest supporters were 
the FORD Foundation and the De- 
partment of Defense. The first im- 
plementation was written for the 
IBM 7094 computer. Since that 
time many various implementa 
tions have been made for different 
computers ranging from a small 
IBM 1130, up to the large UNIVAC 
1100 series. Every such implemen- 
tation has some “local properties, 
or additions to the “standard 
STRESS," The purpose of this arti- 
cle is to describe the AMS 
(AgroMarketing Software) imple- 
mentation. which is (at least to our 
knowledge) one of the first micro 
computer versions of STRESS. 


Il, STRESS — brief description 
Treating STRESS as a black box, 
‘one can say that it isa processor ac- 
ting on some input data. and pro- 
ducing the required output. The in- 
put consists of a sequence of state- 
ments, in free format, describing 
the particular engineering struc- 
ture, with terminology which is en- 
tirely In the engineer's language. 
The output is composed of various 
tables containing forces and defor- 
mations within the structure. 
More precisely. the term struc- 
ture is used instead of “framed” 
structure. That means that the 
structure is composed of members 
(elements) that can be represented 
by their centroidal axis, and analys- 
ed as line elements. (in simpler 
words, we are dealing with struc- 
tures which may be represented as 
a composition of so called beam and 
truss elements.) Such a structure 
may be subjected to static external 
forces, prescribed displacements 
and (or) temperature changes. 
Those forces can be applied to so 
called joints (that are interconnec- 
tions between elements). or dis- 
tributed along elements. The solu- 
tion to the described problem or 
linear elasticity is obtained by the 
matrix stiffness (displacement) 
method. Being able to solve small. 
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medium and large structural prob- 
lems with equal efficiency, is an ad 
ditional advantage of STRESS. 


Il, STRESS input language 
As already mentioned, input to 
STRESS consists of a sequence of 
statements using common engin- 
eering terminology. The words us- 
ed in STRESS will be printed in 
capitals & in this article. This 
description of language is brief. 
without explaining all details: 
1. Header statement: 
STRUCTURE text 
text (characters) that follow the 
keyword STRUCTURE on the same 
line is used as a name of the struc- 
ture 
2, Size descriptors: 
NUMBER OF JOINTS i 
NUMBER OF SUPPORTS | 
NUMBER OF MEMBERS i 
NUMBER OF LOADINGS | 
integer numbers following each 
of above descriptors are used to 
define the actual size of the prob- 
lem, 
‘3. Process descriptors: 
TYPE type 
TABULATE category 
SELECTIVE OUTPUT 
PRINT category 
These statements describe the 
internal procedures used for par- 
ticular problems. The following can 
be supplied instead of: type — one 
type — one of five possible types: 
Plane truss, space truss, plane 
frame. space frame. plane grid. 
category — any of the following 
keywords: data, forces, reactions, 
displacements 
4, Structural data descriptors: 
JOINT COORDINATES 
JOINT RELEASES 
MEMBER INCIDENCES 
MEMBER PROPERTIES 
MEMBER RELEASES 
CONSTANTS 
These statements are used to 
describe the structure providing in- 
formation about its geometry. top- 
ology. load-deflection relationships, 
and local and global releases. 
5. Loading data descriptors: 
LOADING 
JOINT LOADS 
JOINT DISPLACEMENTS 
MEMBER LOADS 
MEMBER DISTORTIONS 


LOADING COMBINATION 
COMBINE 

These statements describe the 
Joading applied to the structure. in 
terms of external forces and pos- 
sibly prescribed displacements. 

6, Termination descriptors: 

SOLVE 
SOLVE THIS PART 

These statements are used to 
terminate the input phase of 
STRESS (and normally to start the 
solution phase), 

To stay within normal limits for 
an article of that type. we shall not 
give the precise description of 
those statements. Instead, a brief 
example is presented, which will 
show their usage. and more, the 
syntax of STRESS language, 


IV, Brief example 

it must be pointed out that the 
presented material is not complete 
in any sense — the character of 
this article is purely informative. 
We still have the feeling that some 
example, how to use STRESS, could 
be helpful. Therefore, we have 
chosen the following small exam 
ple: 

The structure is a plane frame 
subjected to horizontal (wind) 
forces and dead and toad 
(snow) — see figures. 


live 


Schematics of structure with applied 
forces 
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Topological schematic of structure 


The input data looks like this 
(lines starting with * are treated as 
comments and ignored by STRESS 
processor) 

STRUCTURE Two bay three storey 
plane frame 

= 

* Size descriptors 

. 

NUMBER OF JOINTS 11 

NUMBER OF SUPPORTS 3 
NUMBER OF MEMBERS 13 
NUMBER OF LOADINGS 3 


* Process descriptors 
= 

TYPE PLANE FRAME 
‘TABULATE ALL 


* Structural data descriptors 
cf 

JOINT COORDINATES 

1 x 0. ¥ 0. S THRU 3 DX 8.0 
4 « 0. Y 5. THRU 6 DX 8.0 

7 x 0. 9. THRU 9 DX 8.0 

10 x 0. ¥ 13. THRU 11 DX 8.0 
JOINT RELEASES: 


3 MOMENT Z 
MEMBER INCIDENCES 

1148 

94510 

117812 

131011 

MEMBER PROPERTIES PRISMATIC 
* COLUMNS — 60/60 CM 

1 THRU 8 AX 0.36 IZ 0.0108 

* BEAMS — 40/60 CM 

9 THRU 13 AX 0.24 IZ 0.0072 
CONSTANTS E 3000000. ALL 


* Loading data descriptors 

= 

LOADING 1 VERTICAL LOAD 

MEMBER LOADS 

9 THRU 13 FORCE Y UNIFORM W 
~45 

LOADING 2 HORIZONTAL WIND 
FORCES 

JOINT LOADS 

4 FORCE x 12.0 

7 FORCE x 14.0 

10 FORCE x 8.0 

LOADING COMBINATION 3 
VERTICAL + WIND 

COMBINE 11.21 


* Termination descriptor 
. 
SOLVE 


V. Execution phases 
‘As already shown, STRESS has 
two execution phases which may 
be summarized as this: 
1. Input analysis phase 
2. Solution phase 

It is the first phase, which made 
STRESS so popular — namely the 
idea of defining the input data in 
such a natural way that absolutely 
no prior computer knowledge is 
needed. The consequence of this is 
certainly the fact that STRESS runs 
longer than some other program 
performing the same job. if that 
program has the “standard” input 
(composed of numbers only. which 
must be entered in some rigid for- 
mat) 

Three types of information are 
allowed as input data to STRESS — 
integer numbers, floating point 
numbers and ASCII character str- 
ings — words in STRESS ter- 
minology. Separate conversion 
rules are applied to each of these 
categories. with the following 
general idea: every floating point 


number has to be stored, and the 
integers are used to determine 
where, Words may be some data to 
store, description of process, or 
data type information. The pro- 
blem how to determine the mean- 
ing of words is solved very simply 
— by implementing the dictionary 
(Le. a list of allowable words) which 
is used to match the word just read 
with its internal code. 

The described method allows 
STRESS statements to be process- 
ed in an almost arbitrary order, 
without any rigidity. Besides that. 
the concept of internal dictionary is 
flexible enough to enable modifica- 
tions to STRESS language without 
much effort, 

The method of solution used in 

STRESS is commonly known as the 
“stiffness method,” where the 
primary unknowns are dis- 
placements of the joints of the 
structure, The overall stiffness 
matrix, relating displacements to 
applied forces, is assembled direct: 
ly from individual member 
matrices, employing the so called 
‘Direct Stiffness” technique. A 
system of simultaneous linear 
algebraic equations thus obtained 
is solved by process of elimination, 
yielding the displacements of the 
joints. By substituting these 
displacements into the local force- 
displacements relationships, inter: 
nal member forces are computed 
as a final result. 


VI. AMS micro STRESS implemen- 
tation 

Due to the appearance of 
CROMEMCO's Overlay Linker 
(developed exclusively for 
CROMEMCO at AMS), the full im- 
plementation of STRESS became 
feasible. The current version of 
AMS micro STRESS (1.06) is divided 
into ten segments of code with 
rather sophisticated overlaying 
scheme. The differences between 
AMS and “standard” versions 
described above are minimal — to 
demonstrate it, here is the list of 
all acceptable statements: 
STRUCTURE Xxx 
NUMBER OF JOINTS i 

(maximal joint no. 127) 
NUMBER OF SUPPORTS i 


Continued on next page 
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NUMBER OF MEMBERS i 
(maximal member no. 250) 
NUMBER OF LOADINGS i 
TYPE PLANE TRUSS 
TYPE PLANE FRAME 
TYPE PLANE GRID 
TYPE SPACE TRUSS 
TYPE SPACE FRAME 
TABULATE 
(any combination of words ALL, 
FORCES, REACTIONS, 
DISPLACEMENTS, MEMBER) 
JOINT COORDINATES 
(automatic data generation 
available) 
JOINT RELEASES 
MEMBER INCIDENCES 
(linear generation available) 
MEMBER RELEASES | 
MEMBER PROPERTIES PRISMATIC 
FLEXIBILITY GIVEN BETA 
STIFFNESS GIVEN BETA 
CONSTANTS | 
LOADING xxx 
JOINT LOADS 
MEMBER LOADS 
any combination of words 
FORCE, MOMENT, UNIFORM, 
CONCENTRATED, LINEAR) 
JOINT DISPLACEMENTS 
MEMBER DISTORTIONS. 
MEMBER END LOADS. 
LOADING COMBINATION 
COMBINE 
SOLVE 
The following table contains 
some relevant parameters for 
serious program evaluation: 
where the following annotation is 
used: 
for problem description 
NJ... Number of joints 
NM... Number of members 
NF... Number of freedoms 
(equations) 
BW .., Bandwith of matrix 
NL... Number of loadings 


benchmark variables 
CT... Computer time 
(minutes) 
DS ... Disk space 
(Kilobytes) 

Rough sketches of those struc- 
tures are numbered according to 
their appearance in the above 
table. Structures 3 and 5 have the 
same geometry (once treated as 
truss, the other time as frame). 
The similar situation is with struc- 
tures 4 and 6 — the first is 10 
storey, 6 bay frame, the second 15 


60x 


columns: éo/60.m 

Beams /80em 

we tsk 

Hein C) 
kN 

SRN 


joints 


members, 


storey. 8 bay frame. 
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The same version of program 
runs under CROMIX operating 
system. Due to numerous 1/0 
operations in utilizing the disk 
storage as a scratch file. a 
sophisticated buffering scheme 
has been incorporated into STRESS. 
This makes the program almost as 
fast under CDOS as under CROMIX 
(increase in speed in the latter case 
is only about 15 percent). Con 
siderable improvements in pro- 
gram efficiency can be obtained on 
a system with a hard disk — at 
least for a factor of two. Never: 
theless, the given table, with 
benchmark data proves that this is 
not the ("‘conditio sine qua non”.) 


Vil. Hardware requirements 

This first version of AMS micro 
STRESS Is dedicated to users of 
CROMEMCO computers only 
Depending on customer reactions 
and demand, there may appear 
some CP/M version too. but the 
present version will not work out- 


figuration with 355A printer is 
supported (i.e. 17K CDOS). 

To obtain reasonably formatted 
output, a printer which can ex- 
ecute FF (Form-feed) is recom- 
mended too. The program does not 
engage the printer “on line". but 
father saves the output on a user 
defined file. In that way. the prin 
ting may take place at other times 
and on possibly other configura 
tions. 


Vill. Future developments 

Many useful features are already 
in process of implementation 
various data generation schemes, 
special micro STRESS data entry 
program. direct coupling with new 
(not released yet) AMS civil 
engineering program for design of 
concrete cross-sections, and maybe 
the most attractive thing — the 
dynamic analysis of structures. 

For any further information 
about micro STRESS, please con: 
tact (by phone, telex or letter) the 
following address: 


side CS-3, or CS-2 using CDOS or ‘AGROMARKETING 

CROMIX, Although not necessary, B. Adzije 7/1 

the 3102 terminal is recom 41000 ZAGREB 

mended, Because of STRESS’s YUGOSLAVIA 

STRESS's complexity. 64K memory _ tel (041) 417662, tIx 21741 yu am 

is needed, but full hard disk con: 2g 

Num. Structure type NJ NM NF BW NL CT DS 
1 Space frame 124 239 720 24 1 185.37 304 
6 Planeframe 120 210 340 24 1 6042 126 
5  Planeframe 122 241 363 6 1 4463 106 
3 Plane frame 66 110 18 18 3 2862 118 
4 Plane truss 122 241 241 4 1 1455 58 
2 Space truss 43120 117 #12 1 890 4B 
7 Plane truss 2449 «48 466 «62 «64330 (24 
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SunShine Software 
Systems, Inc. 


Offering a full line of 
Quality Software designed to 


BILL OF MATERIALS EXPLOSION 
We feature @ sophisticated Manufac- 
turer's inventory and Bl of Materials 
‘control system with: 

*# Complete stock transaction audit 
trallby Job 

* Eight Bill of Material 

‘+ Multilevel drawing tree and drawing 
fates control 

* es by sual of protec 
ments 
scheduled for production 

+ Complete inventory status report 

‘nd valuation 

. pdepartmental data coordination 
of purchasing, production, account: 
ing. and engineering departments 

'* Generates labor costs for assemblies 
ond subassemblies 

‘This software system is literally the 

best in the business in terms of 

Capebiliies and ease of use. 


Need @ REAL Word Processing 
Package? 
‘We have just what you need — 


Word Star. (For use on any terminal 
with addressable 


cursor. 
Price 

with 

We also offer 


Systems, 
2805 Pine Ave., Mims, FL 32754 
(305) 267-1960 


Cromemco Introduces 


SOFTWARE UPDATE SERVICE 


KEEPS REGISTERED SOFTWARE CURRENT 


A January. 1981. announcement from C 
may make the users of the company’s 
packages very happy, and avoid much of the confusi 
which has existed in the past 

Called SUDS, for Software Up-Date Service. 
subscription program works like this. Each time there is 
a production update of any software pai 
subscribers to the service for that package wi 
automatically receive a diskette which contains the new 
software. 

The subscriber will also receive, with the diskette, a 
description of how the new software differs from the 
previous version. When new documentation is required 


memco, Inc. 


to use the updated version, it will be included in the 
mailing. 
SUDS Is available for a fixed annual fee, regardless of 


how many production updates are made during the 


year. The fee is a modest $95 per software package. 

Registered users of Cromemco software have been 
sent pre-printed order forms showing those packages 
ch they are now registered, and for which the up: 
date service is provided. 

A list of the current versions of all Cromemco soft 
ware follows for use as a guideline 

If past performance is any indication of what is to 
come, the service can be very economical. For example. 
IACU has the $95 DBMS package which was issued prior 
to DBR. We have just sent our check for $95 for the 
new, combined DBMS/DBR valued at $295. We have 
already made $105 on the subscription service and we 
will get all updates for a full year. With the probability of 

vements in this package during the coming year, 

we feel it is most profitable for us to take advantage of 
SUDS. 


ROYAL DATA 
INCORPORATED 


SOFTWEAR SPECIALISTS 
FOR BUSINESS & INDUSTRY 


If You Own a 56K CDOS Machine, 
Then You Should Have Leverage 


package 


‘many capat 
SPECIALIZED SOFTWARE 


through 


ROYAL DATA 


calenda 


Leverage is an innovative new informa 
duced by Urban Software Corporation. It 
combines a number of powerful tools, 
including full screen 
processing 
into an integrated, 
The Leverage 
s previously available only | n 
tly custom prog 
is designed for use by non-programmers. 


Leverage Highlights 
Data bases are easily cont 
your particular applications: prot 
mailing lists, personnel files, appointment 
and inventory systems are pro: 


Vide. 
* Flexible generator let 
define report formats such as alphabetized 


ly intro. report you 
lists, tables, directories and schedules. 
+A “Help Key 
text access to an on-line mani 
80,000 characters long. 
* Graphic menu selection provides opti 
I res 


data entry, report allows ins 


and subset 


ystem provides 


iveness and ease of use, 
© Written in “C," a powerful systems pro- 
gramming language developed by Bell Labs 
in conjunction with its UNIX operating 
system (most of UNIX is written in "C"), 

* Sophisticated programming techniques 
like hash table coding, dynamic ove 
shell sort and heap sort guarantee 


ured to 
pes for 


ROYAL DATA Me ae 
INCORPORATED 


Leverage Program 


Educational rates available. USIN 


If your local dealer does not yet have Leverage, call Urban Software for 


siss ‘Now fully Cromis compatible 


$15 (Applicable to subsequent purchase of program) 


brochure. 


Urban Software Corporation 


19 West 34th Street * New York, NY 10001 © (212) 947-3811 


Current Versions 
of Cromemco Software 


In response to many requests, Cromemco has supplied 
us with a complete list of the current versions of all its 
disk software products. Please check this list against 
the version of Cromemco software you are using, and 
use it a5 a guideline for determining whether you need 
to update. 

The following sections list all Cromemco disk soft 
ware, the packages in which they're sold. and their cur- 
rent verion numbers. Cromemco version numbers con- 
sist of four digits in two groups of two. The two digits 
before the decimal point represent the level of enhance- 
ment. This number is changed when significant new 
features are added or extensive changes are made to the 
software 

The two digits after the decimal point represent the 
version number of that particular level. This number is 
changed whenever anything is changed in the software, 
however slight, For example, If an error message in a 
program contains a misspelled word and this is subse- 
quently corrected, the version number will be in: 
cremented by one. Generally. a product that has chang 
ed will have its version or revision numbers incremented 
by more than one. This does not mean that the 
customer has missed a version, merely that the soft- 
ware corresponding to the intermediate version 
numbers has remained internal to Cromemco, 


Operating System Software 

The following operating system software (s supplied 
with all products except those which use an operating 
system other than CDOS: Multi-User Basic (model FDM 


and MUB) and Cromix Operating System (model 

CROMIX), 

Program Vers. Revs. 

Cromemco Disk Operating System 02.36 
DOS 02.36 
CDOSGENerator 02.36 

Utilities 
@ (Batch) 02.00 
DUMP (dump binary files) 00.07 
EDIT (character-oriented text editor) 00.10 
INIT (initialize disks) 02.15 
SCREEN (screen-oriented text editor) 01.24 
STAT (display system status) 02.16 
WRTSYS (write system area) 02.00 
XFER (transfer files) 01.07 


‘System Software Products 


Product Name & Primary Programs 
Fortran 1V 
FORTRAN compiler & library 
LINKer 
16K Extended Basic 
BASIC interpreter 
280 Macro Assembler 
ASMB 
DEBUGger 
LINKer 
* Trace System Simulator 
TRACE simulator 
DEBUGger 
Dazzler Graphics 
Fortran & Basic graphics libraries 
Word Processing System 
FMT (Formatter Il) 
SCREEN editor 
Cobol 
COBOL compiler. overlays, & library 
LINKer 
Data Base Management System 
DBMS 
DBR (data base reporter) 
* Multi-User Basic 
QS using 32K of RAM in bank 7 
QS using 16K of RAM in bank 7 
Multi-User BASic interpreter 
32K Structured Basic 
SBASIC interpreter 
BASICGENerator 
LIBBUILD (procedure-library builder) 
Ratfor with Fortran IV 
RATFOR preprocessor 
FORTRAN compiler & library 
LINKer 
RPG Il Business Language 
PG compiler & library 
LINKer 
RPGEDIT (RPG editor) 
REFM (IBM-CDOS reformatter) 
SDI Graphics Software 
Fortran graphics library 
Basic graphics library 
PIXSAVE 
(SDI picture compression program) 
PIXLOAD 
(SDI picture decompression program) 
System Diagnostics Software 
HDIAG (hard disk diagnoser) 
DISKDIAG (floppy disk diagnoser) 
use 
Cromix Operating System 


“Denotes Software net eligible for SUDS 


FOF 


FOB 


FDA 


Ts5 


aR 
wes. 


FDC 


DBM 


FDM 


STB 


FOR 


RPG 


cps 


LsP 


CROMIX 


Model Vers.Revs. 


03.37 
03.37 


05.70 


03.07 
00.17 
03.21 
02.06 
02.06 
00.17 


00.09 


06.00 
01.24 


04.01 
03.37 


03.05 
01.00 


o1.s2 
01.42 
01.01 


03,65 
03.65 
00.10 


01.00 
03,37 
03.37 


01.02 
03.37 
01.94 
01.03 


01.05 
00.05 


01.02 
01.03 
00.09 
00.09 


01.07 
10.09 
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ATTENTION 


— the WordStar Users 
___ FOR SALE . 


Potential WordStar Users 
Used System 3 would lik Fac Seam 
with 3703 Printer 7 —— be trol ke 
and 3101 Terminal ” . kag ned wi 
Plus two : 
computer desks. which w a plied b 
Will sell as a gras, Os atthe Wi 
package or as : 
individual pieces . 3 detecting 
on a “Best Offer” basis. . n 


Mail bids to: 
John Breon 
American State Bank » 4 t mzation 
777 South Main St. a Ceres Birmeteohcncss 
Suite 135 a 
Orange, CA 92668 — J t anguage, how t ur new 
(714) 972-2812 . 


FEATURES INCORPORATED INTO FUNCTION KEYS 


CONTRACT PROGRAMMING F it Returo 
| FOR CROMEMCO COMPUTERS ‘ a 
ASSEMBLER + 18x B48 

ASIC NS RPG 
SFomTman —SRATFOn 


WHAT IT COSTS 


Customization Program Package (includes all items described above) to produce: 


| (17) 4908390 6308 Juniper Fx. Worth, Tx 781 


>| - 
SAVE $200 . 
Brand New 3779 Printer Combination Packages 
for sale now at 1980 + Pca ; 
list price. s = ame = 
Contact: at tage Mailmerge option whi $150 
nae) ; ADC associates ® 
WHERE YOU CAN GET IT 
(714) 955-0432 srs 960 SAN ANTONIO ROAD 


(415) 493.5500 


a) PALO ALTO, CA 94 


Join Now. But Don't Cut The Page. 
eCopy This Application and Mail to 


IACU With Your Check. 


Application for Membership 4° 21 My Primary Uses ore: (_) Personol Only 
) Be ( ) Process Control 
Please stort my Membersh rernotional Association ( ) Other 
: ( ) Software 
1 n the Unit . () Horewor ( ) Other 
00 : | Want to Know More About 
, ' the following Packages: () Home Economes 
x r= $77 0 ) Pecour ) Medical Research 
oF } Process Control 
) Sports & Gomes 


0 0 ) Other 
Ne Describe Your Present System: 
@ (use brands and model numbers) 
sk 
Mail Your Membership Application to: 
The International Association of Cromemco Users Ust Softwore Now in Use: 
P.O. Box 17658, Irvine, CA 92713 (Packages, Special Operating Systems, etc.) 


For more information, call (714) 955-0432 - — 


The International Association of Cromemco Users is 

designed to provide its Members with the information 
«they wont. Help us deliver by answering the following 
questions. You may check more than one block as 
‘applicable: My field is: Wht Types of Softwore Would You 
, Like to know more about? 


Would you be interested in preparing on ortkle of 
, = interest to our members? 


Subject Motter 


( ) Other 
a 


Cromemco Leads With New C Compiler 


Continued from frst page 


programmer Is also allowed to de- 
fine new types using the typedef 
statement. C contains a very large 
selection of operators (40), and 
allows the programmer to define 
values of symbols and to use C lan 
guage macros with macro argu- 
ments. AC source file can contain a 
directive which causes the compiler 
to insert the contents of another 
source file during compilation (file 
inclusion), and a C program can be 
formed by combining one or more 
separately-compiled modules 
Cromemeco C also contains an as- 
sembly-language window feature, 
that is, a C program can contain 
blocks of in-line assembly code, 

The Cromemco C compiler ex: 
ecutes only under the CROMIX 
operating system, but C programs 
may be compiled and linked to ex- 
ecute under either CDOS or the 
CROMIX operating system. The 
CROMIX operating system requires 
a minimum of 128K of memory, and 


C users need at least 243K of disk 
space for all of the programs and 
files supplied with the C package. 
The C package contains two C func- 
tion libraries. One contains func- 
tions which use CDOS system calls, 
the other contains functions which 
tse the faster CROMIX calls. All pro- 
grams which execute under CDOS 
will also execute under the CDOS 
simulator on CROMIX system. 

The Cromemco C compiler opera- 
tion consists of three passes, or 
phases, a more accurate term since 
C reads the original file only once. 
‘The three phases read the C source 
program and produce an assembly 
language file which contains the 
assembly language code to perform 
all of the 1/0. logic, and data 
manipulation expressed by the C 
programmer. The assembly lan- 
guage file is input to the Cromemco 
Macro Assembler, which \s supplied 
with the C package. The assembler 
generates a relocatable object file 
which is combined with any 


separately-compiled program 
modules and any necessary func- 
tions from the C library by the Link 
utility program to create an execu- 
table object file. e 

The Cromemco C compiter com- 
piles at a rate of 146 lines per 
minute on the HDD hard disk drive. 
This figure does not include assem: 
bling and linking time. When the 
assembling and linking times are in- 
cluded, the rate is 100 lines per 
minute, 

One of the best testimonials to 
Cromemco C is that the Cromemco 
R&D Department itself is now us- 
ing the language extensively for the 
development of new software pro- 
ducts, The DBR report writer, 
recently released by Cromemco, is 
one example of a product written 
entirely in C, And, interestingly, the 
C compiler itself was written in Cl 

The C compiler is now available 
from Cromemco dealers on either 
5" or 8" double-sided, double- 
density diskettes formatted for use 
with the CROMIX operating system, 
(For more information about this 
product, be sure to read the article 
by Dave Ellis In this issue.) 


String Arrays 
‘Crime fo a a 

sion string “AS” (99 
segments). 

Another example: 

10 Print AS(60,72) 

In Cromemco BASIC this com: 
mand will print the contents of the 
string "AS" from positions 60 
through 72. In a string array, It 
would print the contents of the 
string “A$” at column 72, row 60. 

Now suppose we wanted to 
write a program that would read 
10 records from a file into "AS". 
The programs could look as fol- 
lows: 


10 byte 


‘Cromemeco BASIC 
10 Dim AS(I"4) 
20 Rem |= number of records 
30 Rem J= record length 
40 Open\1.4\"File 
50 For X=0 to l—1 
60 Get\1.X\AS(X"J) 
70 Next X 
Other BASIC 
10 Dim AS(I.J) 
20 Rem |= number of records 
30 Rem J= record length 
440 Open\1.J\"File” 
50 For X= to | 
6O Get\1.X\AS(X) 
70 Next X 


As you can see, these programs 
are quite similar in syntax, yet 
there are some subtle differences. 
The important differences are on 
lines 10 and 60. Line 10 dimensions 
essentially the same amount of 
space in each example. The Cro: 
memo BASIC accomplishes this by 
multiplying the number of records 
by the record length (number of 
characters per record). In the other 
BASIC, the string is dimensioned as 
per the first example. In line 60. 
the record is read into the string 
each time ina different segment of 
the string. In Cromemco BASIC. 
this is accomplished by multiplying 
the record counter "X" by the 
record length to determine the 
position within the string to place 
the record, In the other BASIC, this 
is accomplished by using the record 
counter "X" within the string 
itself. 

From these examples, it is evi- 
dent that the implementation of 
programs using strings in Cromem- 
co BASIC is actually quite easy to 
do. 

A further feature found in 
Cromemco 32K Structured BASIC, 
is that the programmer can dy- 
namically expand the size of a 
string as needed by using the 


EXPAND function, This allows the@) 

programmer to dynamically ex- 

pand the size of the string in order 

to insert new characters. 

For example: 

10 Dim AS(14) 

20 AS(—1)="A"+ASI 
This fills AS with “A"'s 

30 Expand AS(B). 4 


Rem 


40 AS(8, - 4)="BBBB" 
50 Print AS 
Run 
AAAAAAAABBBBAAA 


In summary. the string function 
found in Cromemco BASIC is not a 
string array. The string function in 
Cromemco BASIC. however. can 
easily be used to implement code 
that might be implemented by 
string arrays in other languages, 
and offers additional advantages 
over these other versions. 
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2 MEMBERS 


ALASKA SYSTEMS. 

2900 W. Northern Lights Blvd. 

Anchorage, AK 9950: 

(907) 248-2700 

Full service company, providing consultation. 
Stocks a large inventory of both hardware and soft- 
ware; specializes in payrolls, power generation 
monitor, custom device drivers, Provides warranty 
repair service. 


Key Personnel: William Hutchison, Owner 
R, Pereira, software specialist 
R, Yorgenson, software specialist 


Major Market Area: 
Sales & Service: throughout Alaska 


AGRO MARKETING 
B. Adz 41000 Zagreb 
Yugoslavia 
41 417-662 Telex: 2141yuam 
Large full-service facility, with complete line of 
Cromemco products and proprietary software. 
Specializing in software development, interfacing, 
‘and special medical computerized equipment, 
Key Personnel; T. Raguz, Director (Marketing) 

N. Ivancic, Software Manager 

B. Krtolica, Customer Support 

() (Hardware) 

Major Market Area: 
Sales & Service: 


Internationally, primarily 
Yugoslavia 
AMERICAN COMPUTERS & ENGINEERS, INC. 
ington, Suite 204 
‘A 90025 


(213) 477-6751 
Consulting engineers, sales and service, Provides 
‘on site or in-house service agreements to all 
Cromemco Users. Offers structural engineering 
programs, accounting and word processing. 
Key Personnel: Ghassan Dib, Pres. (Ph.D. Structural 
Engineering) 
‘Aziz Al-Khal, Industrial Engineer, 
(Sales & Marketing) 
Marwan Dib, Mechanical Engineer, 
(General Manager) 


Major Market Area: 
Sales & Service: Stores in Berkeley, & Los 
Angeles, California, and Paris, 


France. 


COLLINGSWOOD COMPUTER CENTER 
2311 W. Route 70 
Cherry Hill, NJ 08002 
(609) 488-1144 
Medium-sized software house, specializing in small 
business systems; all models of Cromemecolpayroll, 
@billing. mass mailer. Provides warranty service also 
‘contract and hourly service. 
Key Personnel: Jim Lenz, Pres. (software design & 
development) 
Eric J. Watkins, Sales Representative 
Jim Masterson, Vice Pres. (service) 


Major Market Area: Sales: New York to Washingt 
‘extending to entire U.S. Service: 
Metro Philadelphia extending to 
Eastern Corridor. 


COMPUTER CENTERS OF AMERICA 
2129 Westheimer Road 2629 Stemmons Fwy., Ste. 215 
Houston, TX 77098 
(713) 527°8008 (214) 
Complete line of hardware and software in inven- 
tory, 10,000 square feet of space, Provides warranty 
repair service, 
Key Personnel: Avery More, Pres. (sales) 
Richard Herlund, Dallas Manager 
Ron Blake, Houston Manager 
Major Market Area: Sales & Service: Houston and 
Dallas, Texas, 


COMPUTERLAND 
16 A Avenue Marnix 
1050 Brus: 
Belgium 
2154.34.45 Telex: 62973 
Computer store, providing warranty repair service. 
Complete line of Cromemoo equipment. 
Key Personnel: T. Beyerman, Chairman (software) 
J'P. Deville, technician (hardware) 
Major Market Area: 
Sales & Service: 


Internationally, primarily 
Belgium 


COMPUTER PRODUCTS INTERNATIONAL 
3225 Danny Pkwy. 
Metairie, LA 70002 
(604) 455-5330 
Software house, specializing in general business 
and wholesale distributor systems. Full line of 
Cromemcos, in 10,000 sq. ft. two story building, 
Key Personnel: Dan Ellis, Pres. 
Jim Miller, Vice Pres. (systems) 
Ben Rauch, Vice Pres. (systems) 


Major Market Area: Sales: Entire Gulf Coast. 
Extended area, U.S. 


CUSTOM COMPUTER SPECIALISTS, INC. 
208 Roanoke Avenue 

Riverhead, NY 11952 

(516) 369-2199 

Full service systems house with retail showroom. 
Full line of Cromemco hardware, software, 
accessories, and literature. Provides warranty 
service, diagnostics, consultation, systems 
analysis, and custom programming, Special 
management software for attorneys, mass. 
transportation scheduling, reservations, deliver 
manifests, education, small businesses. School 
rentals, teacher training. 


Key Personnel: Gregory G. Galdi, Pres. 
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Major Market Area: Sales: Northeast US., extending 
to East Coast. 
Service: East Coast extending 
to Continental U.S. 


DATAX DE MEXICO SA 

Saturnino Herran 77 

Mexico 19, D F. 

1593-22-42 

‘Computer store, with showroom displaying 
complete line of Cromemco equipment. Special 
emphasis on small businesses and in the 
educational field. Warranty repair service available. 


Key Personnel; Ignacio Palomar, Gen. Mgr. 
(hardware) 
Jose H. Espinosa, Program Mar. 
(software) 


Major Market Area: 
Sales & Service: 


DIGIBYTE SYSTEMS CORP. 
31 East 31st Street 
New York, NY 10016 
(212) 889-8130 
Computer store carryin, 
hardware and software. 
provided, 
Key Personnel: Robert Silverman, Pres. (software) 
Barry Becker, Vice Pres. (hardware) 
Major Market Area: 
Sales & Service: 


DIGITAL TECHNOLOGY 

40 North Third 

Lafayette, IN 47901 

(B17) 423-2548 

3,000 sq. ft. computer showroom, specializing in 

‘educationai/business systems. Large inventory of 

Cromemco software. Warranty repair service 

available. 

Key Personnel: Greg Madden, Proprietor hardware) 
Tim Stockman (software) 

Major Market Area: 

Sales & Service: 


DIGITRONIC 

Digitronic Computersystems GmbH 

‘Am Kamp 17 . 2081 Holm 

Holstein, West Germany 

0 41 03/8 86 72/3 Telex: 02 189 561 

Full service computer store, providing consultation 
and warranty repair service. Complete inventory of 
Cromemco boards, systems, software packages. 


Key Personnel: Claus Martens 
Holger Vorbeck 
Peter Adebahr 


Major Market Area: 
Sales & Service: 


Internationally, primarily Mexico 


full line of Cromemco 
ranty service is 


Primarily East Coast 


Indiana, throughout Midwest 


West Germany 


DIGITUS LIMITED 
9 Macklin Street 

Coven Garden, London WC2 
01-4056761 Telex - Ref: 3005 


Complete line of Cromemco hardware and software, 


4,000 sq. ft. of space. Specializing in training, 
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management sciences, personnel systems. Provides 
consultation services. 


Key Personnel: A.C. Wood, Managing Dir. 
(consultancy) 
PS. Woolfonden, Systems Mgr. 
(software) 
8. Parel, Sales Mgr. (hardware) 


Major Market Area: Sales & Service: London, 
extending throughout United 
Kingdom. 


INFORMATIVE SYSTEMS P/L 

3 Bank Street 

South Melbourne, Victoria, Australia 

03-6902284 TWX 30458 

Full range of Cromemco, retail and wholesale 

computer store. Provides full sales and service, 

‘specializing in education and small business 

applications. 

Key Personnel: Dr. Simon Rosenbaum, Mng. Dir. 
lan Savicky, Tech. Advisor 
Norman Rosenbaum, Sales Mgr. 

Major Market Area: Sales & Service: throughout 

Australia 


INFOSOFT SYSTEMS, INC. 
25 Sylvan Road South 
Westport, CT 06880 
(203) 226-8937 
Supplier of sophisticated software to systems users 
and retallers. Complete line of Cromemco software 
and applications packages in stock, a8 well ag 
hardware. Special interconnects to accommodate 
Cromemco software. 
Key Personnel; Ken Short, Pres, (sr. programmer! 
analyst) 
Richard Roth, Vice Pres. Mktg. & 
Production 
Peggy Herlihy, Customer Service 
(analyst) 


Major Market Area: Sales: International. Service: U.S. 


MCM ENTERPRISES 
459 Hamilton Ave., #304 
Palo Alto, CA 94301 
(415) 493-3333, 
A full service computer solutions company with 
consulting, equipment, software, training, and 
service. MCM carries a full line of Cromemco 
Systems, Serendipity and Computer Information 
‘Systems software, and NEC Printing Terminals. 
Authorized NEC Service Center for Northern 
California (printers & printing terminals). 
Key Personnel: M.C. Merchant, Owner (systems 
design) 
G. Nielsen, Svc. Engr. (maintenance) 
L. Yori, Mgr., Reno Office (systems 
design) 
Major Market Area: Sales: San Francisco Peninsula 
& Nevada extending 
internationally. Service: S.F. 
Peninsula, Nevada, extending 
into Northern Calif. 


Reno Office: 1275 Kleppe Lane, #14, Sparks, Nevada 
89431 (702) 358-0415 


LENDAC DATA SYSTEMS, LTD. 

8 Dawson Street 

Dublin 2, Ireland 

Suppliers and supporters of the full range of 
Gecrere ‘Computer Systems and software. 

Key 

Personnel: Danny McNally, Director 

Major Market Area: 

Sales & Service: Throughout Ireland 


LEAR DATA CORPORATION 

3273 Claremont Way, Suite 203 

Napa, CA 94558 

(707) 252-7139 

‘Systems House and full Cromemco dealership in 

professional, 3,000 square foot office facilities. 

Separate lab and repair facilities. 24-hour service 

responses. Provides full warranty service. Drive 

alignments done in-house. 

Key 

Personnel: — Robert Gustafson, Pres. 

Dr. Joseph Nelson, Vice Pres. 

Doug Sherrod, V.P-/Mktg, 

Major Market Area: Software - Nationwide 
Hardware - Northern Calif. 


MICAH (MICRO APPLICATIONS 
& HARDWARE 
73 Cazneau 
Sausalito, CA 94965 
(415) 332-4443 
@ S2t212 development and consulting nouse. 
‘Specializing in education, resorts, construction, 
and home health services. Special financing 
available for software development projects. 
Key Personnel: Ninad Freedman, Pres. (Software 
Engineer) 
Dale Maxwell, Sales Mgr. 
Major Market Area: Sales: International, Service: 
San Francisco Bay Area & 
Western U.S. 


MICROCENTRE LIMITED 
30 Dundas Street 
Edinburgh EH3 6JN Scotland 
031-556 7354 Telex: 72165 Ref. W582 
Complete line of Cromemco Catalog items in 
inventory. 8,000 sq. ft. computer warehouse, 
extensive workshop for testing of equipment. 
Warranty repair service is available. 
Key Personnel: Norman Rouxel, B.SG., Director 
(Cromemco equipment) 
Andrew Smith, B.SC., Director 
(Cromemco 5 ipment) 
John Pringle, B.SC., Director 
(Gusiness) 
Major Market Area: Sales & Service: Entire United 
Kingdom, extending to North 
Sea Basinilreland 


© soporte aoministrarivo 
COMPUTACIONAL, S.A. 
15 De Mayo #1111 PTE 
Monterrey, N.L. Mexico 
43-83-40 


Complete line of Cromemco hardware and software 
in inventory. Specializing in the educational field. 
Full service facility, providing technical consulting, 
as well as warranty repair service. 
Key Personnel: Juan Angel Perez, Director 
(systems) 
Jaime Martinez, Customer Support 
(MSEE) 
Gerardo Elizondo, Technical Mgr. 
(MSEE) 
Major Market Area: 
Sales & Service: Internationally, primarily Mexico 


SYNERGISTICS INTERNATIONAL LTD. 
35 Fountain Square Plaza, Box 631 
Elgin, iL 60120 
(312) 695-7775 
Computer store and software house, with complete 
line of Cromemco equipment in inventory. 
‘Specializing in sales to small business turnkey 
systems, 
Key Personnel: Jim Knowles, Pres. (Sales) 
Gordon Muirhead, Vice Pres. 
(software) 
Major Market Area; Sales: Chicago and suburbs, 
extending to entire U.S. and the 
United Kingdom. Service: 
Chicago and suburbs, 


TRADEWIND SYSTEMS 

Box 96 

Liberal, KS 67901 

(816) 624-8111, O/S KS 1-800-835-2057 


Exclusive Cromemco dealer, specializing in 
complete business systems, Provides consulting 
services, Full inventory. 


Key Personnel: Clark Stewart, Pres. (business 
systems) 
Wayne Stewart, Vice Pres. 
(tech./software) 
Kevin Elmore, Programmerianalysis 


Major Market Area: Sales: S.W. Kansas, extending to 
COlorado, Kansas, Oklahoma, 
Texas, New Mexico. Service: 
SW, Kansas. 


XITAN SYSTEMS, LTD. 
23 Cumberland Place 

‘Southampton, England 

0703 38740 

Complete line of computers, 1,000 sq. ft. Also add- 
ons for Gromemco. All Cromemco software 
included in inventory. Provides warranty repair 
service. 


Key Personnel: G.C. Lynch, Managing Dire. (sales & 
technical support) 
R. Wilmott, Product Support 
Engineer (engineering) 
J. Rosser, Personal Assistant (order 
processing) 
Major Market Area: Providing U.K. & E.E.C. with total 
business, educational scientific, 
medical and industrial support. 


Estimate 
Taxes 


and Save by Theodore R. Johnson, Jr. 


1. Summary and Objectives 

‘The purposes of this paper are: 1) to indicate the im- 
portance to an investor of making periodic estimates of 
his current and future income tax liability, 2) to present 
a simple computer program in (Cromemco) BASIC which 
eases the task of making such estimates. 

‘Although the objectives of the Micro Computer Inves- 
tors Association (MCIA) are stated primarily in terms of 
negotiable securities (one does not often take delivery of 
commodities). | have taken the liberty of including in 
this paper references to partnership interests in such tax 
shelter investments as real estate and drilling programs. 
reflecting my belief that such investments are a neces 
sary part of the portfolio of any investor who is con- 
cerned about the steadily increasing impact of inflation 
and taxes, 

Il, Why estimate taxes? 

Although it hardly seems necessary to justify the 
desirability of minimizing income taxes, | am frequently 
surprised by the failure of investors of my acquaintance 
to take the time and trouble to make a quantitative 
evaluation of the tax implications of various courses of 
action. To be sure. an investor in the 70% bracket does 
not require elaborate calculations to appreciate the 
attractiveness of a promising tax shelter investment. 
Even he, however, may wish to make a rational deter: 
mination of how much to invest in programs which, by 
their nature, entail considerable risk. A drilling program 
partnership interest purchased with 30cent dollars may 
‘seem irresistible, but the risk:reward ratio changes ap- 
preciably as one passes below the 50% bracket. 

In other areas, the investor may have to decide 
whether (and when) to realize capital gains, whether it 
may be desirable to accelerate or defer income and/or 
deductions, whether to buy taxable or tax-free bonds, 
whether to buy an annuity. whether to seek an ex. 
change or make an installment sale of an asset, how 
much to contribute to an IRA or Keogh plan, how to op- 
timize distributions from a retirement plan or annuity. 
etc., etc. While it would be foolish to allow tax considera: 
tions to dominate one’s investment decisions, it seems 
equally foolish to ignore them. And. in my experience. 
the effects of income averaging. minimum tax on tax 
preference, investment tax credits, and alternative 
minimum tax make “back of the envelope” calculations 
almost completely useless. 

Other reasons to estimate taxes might be: 

1) To avoid the loss of income resulting from excesive 
estimated tax payments (or over-withholding). 

2) To avoid penalties and interest expense resulting 
from underpayment. 

3) To anticipate the need to liquidate assets to make 
the final tax payment in April. 

4) To provide additional justification for deducting 
depreciation and other outlays associated with your 
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microcomputer as investment expenses. 

5) To minimize the effort (and expense if professional 
assistance is utilized) of preparing the annual return. 

‘As a guiding principle, one might select a particular 
tax bracket as a target, seeking to “normalize” his tax 
liability from one year to the next (since savings can 
always be realized by shifting income out of, and deduc- 
tions into, a year of higher tax liability). Which bracket Is 
selected depends upon the individual's personal and poli 
tical philosophy, his appetite for risk. his willingness to 
be audited, etc. 

Ill, When to Estimate Tax Liability 

‘There are at least four occasions during the year when 
an estimate of federal income tax liability is quite useful, 
First, and least obvious, is at the very beginning of the 
taxable year. A preliminary and necessarily rough esti 
mate will indicate whether to begin searching for tax 
shelter investments (the most attractive programs are 
generally offered during the first half of the year — to 
those investors who plan ahead) and will provide a 
target deduction amount. Needless to say. one must 
also estimate his cash flow (or liquidity) in light of, 
among other things, his tax liability for the precedin 
year, a large fraction of which may be due in April. 

The second obvious occasion for tax estimating is in 
April to decide whether to base withholding and/or ad- 
vance payments on last year’s actual, or this year's 
estimated tax. At current interest rates this decision is 
not trivial and can result in significant additional income 
on funds which would otherwise find their way prema 
turely into the coffers of the Treasury Department. It 
goes without saying, of course. that if you use an 
estimate of this year’s tax it should be checked fre 
quently throughout the year to avoid possible underpay- 
ment and resulting penalty. 

Thirdly, additional estimates should be made from 
time to time during the year as changes occur and more 
accurate information becomes available. As tax shelter 
investment opportunities arise. the actual tax impact 
can be evaluated quickly and easily to determine the real 
dollar cost of the investment. As stated earlier, the ef- 
fects of averaging. the preference tax and the alter- 
native minimum tax sometimes produce surprising 
results. 

Finally, towards the end of the year estimates should 
be made of the current year’s tax iiability, reflecting the 
more accurate inputs which should have become 
available by that time. If one's tax liability, based on 
estimates for the current year, has increased, a penalty 
can be avoided by submitting a revised estimate and qm) 
making a higher payment on January 15. y 

At this time an estimate should also be made of next 
year's tax to determine whether it would be advanta- 
geous to make adjustments between years. Most inves- 
tors have more flexibility in this regard than they think, 


and the payoff is not insignificant. A thousand dollars 
worth of deductions (property taxes, for example) swit- 
ched to a year in which one enjoys a 10 percentage point 
higher marginal tax rate is worth $100. 

IV. How to Estimate Tax Liability 

Several tax computation programs are available in 
BASIC (the only computer language with which | am 
familiar), Most of them are designed for the preparation 
of the actual tax return (See Section Vil) and, therefore, 
require a multiplicity of inputs which are not really 
necessary for the preparation of “quick and dirty’ 
estimates. 

The program presented herewith requires only 6K of 
memory and consists of five sections, each of which will 
be discussed brief} 

A. Inputs — Provision is made for inputting five items 
of ordinary income, longterm capital gains or losses and 
an IRA (or Keogh) deduction. "PSI" refers to “Personal 
Service Income”, a bureaucratic euphemism for salaries, 
wages, consulting fees, and like items eligible for maxi 
mum tax treatment. Since the program was optimized 
for my particular situation, other users may wish to 
modify the input section to reflect their own circum: 
stances, Active traders would probably find a "Short 
Term Capital Gain” input useful. Provided that the same 
numeric variables are used, no other changes in the pro- 
gram should be required. If a larger number of inputs is 
desired, appropriate changes should be made in LINE 
400 which calculates Adjusted Gross Income, 

Next, Inputs are requested for Itemized deductions 
and personal exemptions (both in total). Subtracting 
‘these from Adjusted Gross Income provides Taxable In- 
‘come 

It Is suggested that separate hand tabulations be 
maintained for estimates of each category of income 
and capital gains, Columnar paper is handy to provide a 
record of revisions made throughout the year. A similar 
approach is recommended to keep track of estimated 
deductions, Personal exemptions are now $1,000. 

B, Calculation of Scheduled Tax — This section is 
basically a replication of the 1979 IRS tax table for mar 
ried couples filing Joint returns. Those in other cate 
gories will find it necessary to substitute the appro 
priate figures in LINES 1400 through 2030, 

C. Income Averaging — This section is applicable to 
those who have an unusually high level of income for the 
current year. Specifically, savings will result if current 
taxable income is at least $3,000 in excess of 120% of 
the average taxable income for the four previous years 
In calculating Base Period Income, taxable income 
originally reported for 1976 (and before) must be in. 
creased by $3,400 (for married taxpayers filing joint 
returns) to reflect the recent change in the tax schedule 
If it is known that income averaging will not produce 
savings, an input of "0" to the prompt "BASE PERIOD IN- 
COME” will cause this section of the program to be skip- 
ped. 

D. Credits and Preference Items — Investment tax 
credits are available from some tax shelter partnership 
investments. Personal credits may be taken for the pur- 
chase of capital items (such as microcomputers) used for 
investment purposes. The amount of the credit depends 
on the period over which the item is depreciated. (Max- 
imum of 10% for seven years or longer), 


There are several so-called “tax preferences” to which 
a 15% add-on minimum tax applies if, in total, they ex- 
ceed $10,000 or one-half of the regular tax liability, 
whichever is greater. The major preference items, 
which apply only to tax shelter investors, are 1) the ex- 
cess of accelerated over straight-line depreciation on 
eal property. and 2) intangible drilling costs on produc- 
tive wells in excess of net oil and gas income. 

‘An investor in a drilling or real estate partnership 
should, if possible, obtain from the General Partner 
estimates of credits and preferences along with the ex- 
pected deduction from ordinary income. Since, in my ex- 
perience, such estimates are difficult to come by, an 
educated guess is frequently the best one can do, 

E, Tax Calculations — With these inputs the program 
proceeds to calculate "Preference Tax” (my label for the 
minimum tax on preference items) and "Regular Tax” 
(Scheduled Tax plus Preference Tax minus Credits and 
Savings for Averaging). For the calculation of Alter. 
native Minimum Tax an additional input is requested: 
Exempt Deductions, State and Local Taxes, Medical Ex- 
pense and Casualty Losses may be subtracted from 
Total Itemized Deductions before calculating the extent 
to which this amount exceeds 60% of Adjusted Gross In- 
‘come, Considering the limitations on medical deductions 
and the Infrequency of casualty losses, this input will 
normally be confined to state and local taxes. Adding ex- 
cess deductions (if any) to the previously untaxed 60% 
of Capital Gains to determine "Alternative Minimum. 
‘Taxable Income” (not printed out), the program calcu- 
lates Alternative Minimum Tax, 

Finally, It prints the Total Tax Due, requests an input 
of Estimated Tax Payments (or Withholding) and pro- 
vides the Amount Payable in April 
V, Sample Runs 

Three sample runs are provided, Case 1 depicts a rea- 
sonably prosperous investor with a broad spectrum of 
Investment activity whose tax lability is nicely under 
control 
Case 1 
ESTIMATED FEDERAL INCOME TAX FOR? 1980 
PSI? 40000 
DIVIDENDS AND INTEREST? 7500 
PARTNERSHIPS? ~ 17000 
COMMODITIES? 3500 
OPTIONS? 2500 
OTHER? 0 
CAPITAL GAINS? 15000 
IRA CONTRIBUTION? 1500 


ADJUSTED GROSS INCOME = 41000 
ITEMIZED DEDUCTIONS? 8500 

PERSONAL EXEMPTIONS? 2000 

TAXABLE INCOME = 33900 
‘SCHEDULED TAX (37% BRACKET) = 7681 
BASE PERIOD INCOME? 125000 

SAVINGS FROM AVERAGING = ° 
INVESTMENT CREDIT? 500 

PREFERENCE ITEMS? 12000 

PREFERENCE TAX 300 
TOTAL REGULAR TAX = 7481 
EXEMPT DEDUCTIONS? 1500 

ALTERNATE MINIMUM TAX = 280 
TOTAL TAX DUE = 7481 


Continued on page 29 
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OO UC Or 


INPUT: 


AMERICAN COMPUTERS —>).=— 
& ENGINEERS rerSiAR 


One of the Largest Cromemco Dealerships in the World 


QUTPUT: 


* We offer Custom Structural Engineering 
Software with Expertise in Earthquake 
Engineering 


* We are Systems Design Consultants 
Specializing in Engineering and Business 
Systems 


* We offer a Select Line of Communica- 
tlons Packages between Cromemco. 


Systems and Selected Mainframes. 


* We have Expert Service Support Allow- 
ing Quick Response — within 24 hours 
— to any problem 


USA NORTHERN 
MAIN OFFICE: CALIFORNIA 
2001 S. Barrington, Suite 204 1930 Shattuck Avenue 
Los Angeles, CA 90025 Berkeley 94704 
(213) 477-6751 (415) 849-0177 


OPENING SOON: 
Woodland Hills, California 
Newport Beach, California 

EUROPE: 
55 Rue De Rivoli + Date 
75004 Paris, France 

236-9495 


LICAN TERS & ENGI 
‘A WORLDWIDE CROMEMCO DEALER, 
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ESTIMATED TAX PAYMENTS? 7000 
@pwounr rayasuein apr = 481 

Although it is interesting to note that in Case 1. 
without the $17,000 partnership deduction he would be 
in the 49% bracket with a total estimated tax of 
$15,219, 

In Case 2, he for some reason, realizes an additional 
capital gain of $135,000 which pushes him into the 59% 
bracket and increases his total tax liability by a factor of 
4, It should be noted. however, that the effective tax 
rate on the additional gain is only about 17%. the tax be- 
ing reduced by $3502 due to income averaging and by 
$300 due to a decrease in the minimum tax on 
preference items. 

Case 2 

ESTIMATED FEDERAL INCOME TAX FOR? 1980 
PSI? 40000 

DIVIDENDS AND INTEREST? 7500 
PARTNERSHIPS? ~ 17000 

COMMODITIES? 3500 

OPTIONS? 2500 

OTHER? O 

CAPITAL GAINS? 150000 

IRA CONTRIBUTION? 1500 


ADJUSTED GROSS INCOME = 95000 

ITEMIZED DEDUCTIONS? 8500 

PERSONAL EXEMPTIONS? 2000 

TAXABLE INCOME = 87900 
CHEDULED TAX (59% BRACKET) = 34859 
JASE PERIOD INCOME? 125000 

‘TAX FROM INCOME AVERAGING = 31357 

SAVINGS FROM AVERAGING = 3502 

INVESTMENT CREDIT? 500 

PREFERENCE ITEMS? 12000 

PREFERENCE TAX = oO 

TOTAL REGULAR TAX = 30857 

EXEMPT DEDUCTIONS? 1500 

ALTERNATE MINIMUM TAX = 18350 

TOTAL TAX DUE = 30857 

ESTIMATED TAX PAYMENTS? 7000 

AMOUNT PAYABLE IN APRIL = 23857 


Since our hypothetical investor begrudges the IRS 
even this amount. he promptly investigates a 100% 
deductible drilling program which would raise his part- 
nership deduction to $67,000. As shown in Case 3, this 
reduces his scheduled tax by $25,536, or 51¢ for every 
dollar invested. This reduction is offset, however, by the 
loss of his previously estimated $3502 savings from in- 
come averaging and a jump of $1800 in the additional 
minimum tax (due to an increase of $10,000 in esti: 
mated preference items), resulting in a total tax saving 
‘of only 35¢ on the dollar. This should certainly raise 
some doubt about the attractiveness of the investment. 


Case 3 
ESTIMATED FEDERAL INCOME TAX FOR? 1980 
PSI? 40000 

IVIDENDS AND INTEREST? 7500 
PARTNERSHIPS? — 67000 
COMMODITIES? 3500 
OPTIONS? 2500 
OTHER? 0 


CAPITAL GAINS? 150000 
IRA CONTRIBUTION? 1500 


ADJUSTED GROSS INCOME = 45000 
ITEMIZED DEDUCTIONS? 8500 

PERSONAL EXEMPTIONS? 2000 

TAXABLE INCOME = 37900 
‘SCHEDULED TAX (43% BRACKET) = 9323 
BASE PERIOD INCOME? 125000 

TAX FROM INCOME AVERAGING 9323 
‘SAVINGS FROM AVERAGING = 0 
INVESTMENT CREDIT? 1500 

PREFERENCE ITEMS? 22000 

PREFERENCE TAX 1800 
‘TOTAL REGULAR TAX 9623 
EXEMPT DEDUCTIONS? 1500 

ALTERNATE MINIMUM TAX = 13350 
ADDITIONAL TAX 3727 
TOTAL TAX DUE = 13350 
ESTIMATED TAX PAYMENTS? 7000 

AMOUNT PAYABLE IN APRIL = 6350 


It should be emphasized that the numbers have been 
chosen in this rather unusual example primarily to il- 
lustrate some of the complexities of the tax calculation, 
In other, more typical circumstances the tax savings 
Fesulting from the higher deduction might be much 
greater. 

VI. Limitations and Pitfalls 

A number of observations about the program will be 
helpful in assessing its usefulness: 

‘A. Accuracy — | have been estimating my income 
taxes with evolving versions of this program for three 
years during which time a number of programming er- 
rors have been corrected, new features have been added 
and changes have been made to reflect new tax regula- 
tions. After each of the last two years the program has 
been re-run with actual inputs from my federal tax 
return producing “estimates” within 1-2 percent of the 
actual tax liability. While this minimal effort at valida- 
tion is too small to prove anything, it does provide some 
comfort to me 

It must be admitted. however, that the actual tax 
paid each year differed from the previous December's 
estimate by a much larger percentage. This is due to the 
fact that income and deductions, particularly those 
relating to tax shelter investments, cannot be estimated 
with precision, The chief limitation of the program, 
therefore, is the inherent inaccuracy of these inputs. AS 
investment income increases in relation to earned in- 
come this problem becomes more significant, which | 
regard as a major incentive to use a computer program 
of the type presented here. Its major advantage is the 
relative ease by which one can monitor changes as they 
occur and make an advance determination of the tax im- 
pact of possible investment decisions. 

B. Omissions — A number of complexities in the tax 
code have been deliberately avoided in the interest of 
simplicity. For example: 

1) No provision is made for the 50% maximum tax on 
Personal Service income. This is because my objective is 
to pay less than the 50% marginal tax rate, regardless 
of the source of my income, Those who are content to 
pay tax at the 50% rate and above will probably have lit- 
tle interest in estimating taxes anyway. 


Continued on next page 
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2) No provision is made for the earned income credit 
on the assumption that most investors with microcom- 
puters have annual incomes above $10,000. 

'3) No provision has been made for the dividend exciu- 
sion simply because | have never been able to estimate 
dividends (combined with interest as an input) within 
$200 and | doubt whether most others could either. 
However, it would be easy to add. 

4) No provision is made for estimating state income 
taxes because the primary purpose of the program is to 
provide a tax input to investment decisions and state 
tax effects normally follow those at the federal level ina 
much lesser amount. Adding a state tax schedule would 
be a relatively easy thing to do. however. 

'5) No provision is made for the depletion allowance on 
mineral assets nor for a number of other regulations 
dealing primarily with drilling programs. | have found 
that these can best be dealt with. if at all, in preparing 
the partnership income input 

6) No provision is made for the limitation on deducti- 
ble investment interest (to $10,000 plus net investment 
income) simply because it has never been applicable to 
me. Those with a greater appetite for debt can. no 
doubt, make the appropriate additions to the program 
without difficulty, 

7) For similar reasons no provision has been made for 
the limitation on deducting investment interest deemed 
to have been used to purchase or carry tax-free bonds. 

8) In estimating alternative minimum tax, no provi 
sion is made for the exclusion of medical and casualty 
loss deductions from the amount to which this tax ap 
plies. If large deductions in these categories are an- 
ticipated, a separate calculation will be required. 

9) Finally. as a programming tyro. | have not been able 
to devise a means of re-running the program to change a 
single input while preserving all others. This would add 
significantly to the convenience and utility of the pro: 
gram, and | would welcome suggestions to this end from 
my more knowledgeable brethren. 

C, General — It is worth re-emphasizing that the pro- 
gram is intended to provide an estimate, not an exact 
computation, of income tax liability. Certain calcula 
tions, therefore, may represent approximations to those 
which will eventually be made on the return. 

It is also worth mentioning that the tax regulations 
change frequently. (Significant changes have been made 
every year for the last five years, at least). Therefore, 
‘one must be willing to do an annual reprogramming job 
just to keep current. The program, as | have used it, is 
offered below. 


100 @ 
110@ 

120@ 

130 @ 

140 

150 DIM Ys(20) 

160 @"ESTIMATED FEDERAL INCOME TAX FOR”: 
170 INPUT YS 

180 @ 

190 @ 


30 


200 REM COMPUTE ADJUSTED GROSS INCOME 
210 @"PSt 
220 INPUT I1 
230 @"DIVIDENDS AND INTEREST”: 
240 INPUT 12 
250 @”PARTNERSHIPS”: 
260 INPUT 13 
270 @COMMODITIES”; 
280 INPUT 14 
290 @” OPTIONS”: 
300 INPUT 15 
310 @“OTHER"; 
320 INPUT 16 
330 @"CAPITAL GAINS”: 
340 INPUT G: 
350 @"IRA CONTRIBUTION": 
360 INPUT C 
370 @ 
372 REM COMPUTE SHORT TERM GAIN OR LOSS 
37417 =14+15 
376 IF G<O THEN 390 
378 REM LTG + STG 
380 IF I7>0 THEN A=I1 +12+13+16+17+(0.4°G)-C: 
GOTO 400 
382 REM LTG + STL = NLTCG 
384 IF 17 +G>0 THEN 
A=I1 +12+13+16 + (0.47(G+17))~C : GO TO 400 
386 REM LTG + STL = NSTCL ry 


388 A=I1 +12+13+16+17+G-C : GO TO 398 

390 REM LTL + STG = NSTCG 

392 IF 17 +G>0 THEN GOTO 388 

394 REM LTL + STG = NLTCL, LTL + STL 

396 A=I1 +12 +13+16+(0.5°(I7+G))-C 

398 IF 17 + G< -3000 THEN A=A~(G+17~3000) 

400 IF A<O THEN 

402 @USING ####eeeeevnsaevnnnnennuenennon 
#nansa™ “ADJUSTED GROSS INCOME”, A 

404 IF 17 +G<~-3000 THEN @"'***YOU MAY HAVE 
A CAPITAL LOSS CARRYOVER TO NEXT 
YEAR*** 

406 @ 

408 REM TO AVOID COMP OF NEGATIVE ALT MIN 
TAX 

410 IF G<O THEN G=0 

430 REM COMPUTE TAXABLE INCOME 

440 @"ITEMIZED DEDUCTIONS 

450 INPUT D 

460 D=D~3400 

470 IF D<3400 THEN D=3400 

480 @”PERSONAL EXEMPTIONS”: 

490 INPUT E 

500 @ 

510 T=A-D-E 

520 @USING'#####eeeeeeeeneeeenensenenecee 
#ee88" “TAXABLE INCOME=".T 

540 @ 

550 REM COMPUTE SCHEDULED TAX 

560 GOSUB 1400 

570Z=B 

580 @USING###eeeeeseaen ae annnnnnnenne 
#aan@8" “SCHEDULED TAX(".P, 


590 @ 
600 REM COMPUTE SAVINGS FROM INCOME 
AVERAGING 


“9BRACKET) = ",Z 


610 
620 @"BASE PERIOD INCOME”; 
630 INPUT L 

640 IF L=0 THEN 760 

650 T=0.3'L 

660 GOSUB 1400 

670 
680 T=0.3'L+0.2"(Y -0.3°L) 

690 GOSUB 1400 

700 S=B-R 

710 IF S<=0 THEN 760 

720 U=4°S+B8 

730 @USING #####tuHeneenHeneenneeennenene 


w#awite” “TAX FROM INCOME AVERAGING =".U 

740 X=Z-U 

750 IF X>0 THEN 770 

760 X=0 

710 @USING'##etennunannanenenanenne 
muwnatt’ “SAVINGS FROM AVERAGING =".X 

780 @ 

830 @"INVESTMENT CREDIT": 

840 INPUT J 

850 IF J<Z THEN 880 

er IF J>Z THEN J=Z 

870 @" ADJUSTED CREDIT ="INT(J) 

880 @"PREFERENCE ITEMS": 

900 INPUT M 

910@ 

920 REM COMPUTE MINIMUM TAX ON PREFERENCE 
ITEMS 


930 IF(Z - X - J)/2<10000.0 THEN 960 


940 H=0,15*(M-(Z-X—J)/2) 
950 GO TO 970 
960 H=0.15"(M~10000.0) 


970 IF H<O THEN H=0 

1000 @USING ###nnenneenennnennennnannnniene 
#unuee” PREFERENCE TAX =".H 

1010 @ 

1020 V=Z+H-J-X 

1030 IF V<O THEN V=0 

1040 @USING ###2uedeeenseexeneeerenseanee 
sapen OTAL REGULAR TAX=".V_ 

1050 @ 

1060 REM COMPUTE ALTERNATIVE MINIMUM TAX 

1070 @EXEMPT DEDUCTIONS”: 

1080 REM STATE & LOCAL TAXES, MEDICAL 
EXPENSES, CASUALTY LOSSES 

1090 INPUT Q 

1100 @ 

1110 REM COMPUTE EXCESS DEDUCTIONS 

1120 N=A-(D+3400 +E) +(D+3400-Q)-0.6*(A-Q) 

@ 1130 F Nco THEN N=0 

1140 REM COMPUTE ALTERNATIVE MINIMUM 
TAXABLE INCOME 

11500 = N + 0.6°G 

1160 IF 0<20000.0 THEN 1210 

1170 IF O>100000.0 THEN 1230 


1180 IF 0>60000.0 THEN 1250 

1190 F=0.1*(0-20000.0) 

1200 GOTO 1260 

1210 F=0 

1220 GOTO 1260 

1230 F = 1200.0 +0.25"(0- 100000.0) 

1240 GOTO 1260 

1250 F=4000 + 0.2" (0--60000.0) 

1260 @USING'*#enndvannneananttesndensnaane 
#88488". ALTERNATE MINIMUM TAX ="\F 

1270@ 

1280 IF F<V THEN 1330 

1290 W=F-V 

1300 IF W<0 THEN W=0 

1310 @USING'###aen2enawnanauannaunnnannnn 
#anuae" “ADDITIONAL TAX=".W 

1320 @ 

1330 @USING ###e2es2evawaennuanauuannannnn 
#auuea” TOTAL TAX DUE=".V+W. 

1340 @ 

1350 @"ESTIMATED TAX PAYMENT: 

1360 INPUT K 

1370 @ 

1380 @ USING'"##unnnnunsanennannnnnnnnnnnnn 

‘AMOUNT PAYABLE IN APRIL=". 


V+W-K 
1390 GOTO 2060 

1400 IF T>215400.0 THEN 1560 

1410 IF T>162400.0 THEN 1590 

1420 IF T>109400.0 THEN 1620 

1430 IF T>B5600.0 THEN 1650 

1440 IF T>60000.0 THEN 1680 

1450 IF T>45800.0 THEN 1710 

1460 IF T>35200.0 THEN 1740 

1470 IF T>29900.0 THEN 1770 

1480 IF T>24600.0 THEN 1800 

1490 IF T>20200.0 THEN 1830 

1500 IF T>16000.0 THEN 1860 

1510 IF T>1 1900.0 THEN 1890 

1520 IF T>7600 THEN 1920 

1530 IF T>5500 THEN 1950 

1540 IF T>3400 THEN 1980 

1550 IF T<=3400 THEN 2010 

1560 B= 117504.0+0.7*(T-215400.0) 
1570 P=70 

1580 RETURN 

1590 B=81464.0 + 0.68" (T— 162400.0) 
1600 P=68 

1610 RETURN 

1620 B=47544.0 + 0.64*(T- 109400.0) 
1630 P=64 

1640 RETURN 

1650 B=33502.0 + 0.59"(T- 8560.0) 
1660 P=59 

1670 RETURN 

1680 B= 19678.0 + 0.54*(T -60000.0) 
1690 P=54 

1700 RETURN 

1710 B= 12720.0 + 0.49" (T 4580.0) 
1720 P=49 

1730 RETURN 


ET 
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1740 B= 8162 +0.43"(T-35200.0) 
1750 P=43 

1760 RETURN 

1770 B=6201 +0.37*(T-29900.0) 
1780 P=37 

1790 RETURN 

1800 B=4505 + 0.32*(T-24600.0) 
1810 P=32 

1820 RETURN 

1830 B=3273 +0.28"(T-20200.0) 
1840 P=28 

1850 RETURN 

1860 B = 2265 +0.24*(T - 16000.0) 
1870 P=24 

1880 RETURN 

1890 B= 1404+0.21*(T-11900.0) 
1900 P=21 

1910 RETURN 

1920 B=630 +0.18*(T 7600) 
1930 P=18 

1940 RETURN 

1950 B= 294 +0.16"(T—5500) 
1960 P= 16 

1970 RETURN 

1980 B=0.14*(T- 3400) 

1990 P= 14 

2000 RETURN 

2010 B=0 

2020 
2030 RETURN 
2060 @ 

2070 @ 

2080 END 


VII. Bibliography 

‘A. Books — Numerous volumes on the general subject 
of taxes are available ranging from texts for college 
courses in tax preparation to the latest expose by a 
“former IRS employee.” One which I have found useful is 
“Tax Planning for Investors” by Jack Crestol and Her- 
man M. Schneider. Dow Jones Books. Princeton, New 
Jersey. It appears to be updated annually or at least 
often enough to keep up with major changes in tax law. 

B. Periodicals — Two sources of current tax informa- 
tion can be recommended. First, the Tax Report. which 
appears each Wednesday in the Walll Street Journal. is 
probably the best way of keeping up with IRS regula 
tions and rulings and Tax Court decisions which may af- 
fect one’s immediate interests. Second, a monthly news- 
letter called “Tax Angles” is published by Kephart Com- 
munications, Inc., 901 N. Washington Street, Suite 605, 
Alexandria, VA 22314, at a current subscription rate of 
$44/year. In addition to tax matters relating to in: 
vestors it contains articles aimed at professionals and 
‘small employers. 

C. Computer Programs — | have seen several programs 
advertised for the preparation of actual tax schedules. 
Having no experience Iam unable to comment on their 
value. A recent issue of Creative Computing contains an 
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ad by Gooth Software, 931 S. Bemiston, St. Louis. MO 
63105 for a “Tax Program Book” which offers such pro- 
gram listings plus “helpful programming hints” for 


$14.95. 

“Two articles in microcomputer-riented pericic 
may be of interest. “Important Lessons You Can Learn 
from Estimating Your Federal Income Taxes” by W.A. 
Tinsley in the February. 1980 issue of Creative Com- 
puting (Vol. 6, No. 2, p. 54) focuses on such questions as 
whether the taxpayer will receive a refund or have to 
pay more taxes at the end of the year. The article does 
not identify the language in which the program is writ- 
ten (it is unfamiliar to me). No sample output is provid 
ed. 

A “Tax Calculation Program” by Gary 0. Young ap- 
pears in the January, 1978 issue of Interface Age (Vol. 3, 
Issue 1). The program. which is quite lengthy (about 375 
lines) is written in Northstar DOS BASIC, The sample run 
provided is obviously incomplete, but the program ap- 
pears to be a more detailed and comprehensive effort to 
achieve objectives similar to mine, The program includes 
Federal and California State tax tables for single tax- 
payers (since revised). It also includes provision for FICA 
‘and detailed inputing of specific deductions and chooses 
between itemized and standard deductions, but appears 
to omit preference items and the alternative minimum. 
tax (which, of course, had not been invented then). For 
those readers desirous of creating a customized pro- 
gram of their own. it is well worth reading 


About the Author: 
Theodore R. Johnson, Jr. 


Cromemco System 
Forms & Supplies 


Custom & Stock. Continuous — Tags, 
Labels, Mailers, Checks, Stencils; Rib- 
bons, Binders, Diskettes, etc. Send $1 
for our catalog — deduct from your 
first order. Visa & M/C. 

“ALL-TYPE" BUSINESS FORMS 


6910 Oslo Cr #101 Buena Park, CA 90621 
(714) 521-3210 


®bits & bytes, nibbles & tweaks... 


SOUTH JERSEY & PHILLY 
USER'S GROUP UP AND RUNNING 


The organization meeting of the Sout & 
Philly Cromemco User's Group (announced in. 

News, Vol. |, No. 2) was scheduled for Feb. 25th. 
The first part of the meeting was to be devoted 
to the structure of the group. and the second 
half to the specific interests of the members. 
There is a new contact and phone number for 
those wanting to become part of the group. 

Eric Watkins, at (609) 488-1144. 


WALNUT CREEK USER'S GROUP 


The February meeting of the Walnut 
(California) User's Group featured a presentation 
by Hal Nissley from Condor Systems, Hal 
introduced his Relational Data Base which 
allows the integration of several types of 
records into one reporting scheme. Now we'd 
like some feedback as to what the members 
thought of the package. Those interested in 
affiliating with the group may call Hank Couden 
at (415) 935-6502 


NEW GROUP IN NORTHWEST 


NWACU, the Northwest Association of Cromen 
Users, Nas been formed with its next meeting 
scheduled for March 30th. Meetings are 
regularly scheduled for the last Monday of each 
month at 7:30 PM at: 

Maverick Microsystems 

14808 NE 31st Circle 

Bidg. A 

Koll Business Center 

Redmond, Wa 
NWACU bills itself as being affiliated with the 
Northwest Computer Society and the IACU. For 

Qre information, contact: Jim Illman at (206) 

932-8771. 


INCOME TAX PREPARATION 
SOFTWARE 


‘A member in San Diego writes: "We have a hard 
working Cromemco that is the backbone of our 
various company services. We would very much 
like to add Income Tax Preparation to our 
portfolio . . . Is there such a program among 
your associates? If so, kindly advise how we 
Tay participate . . .”" Okay, Computer Tax 
specialists out there. Can anyone help out with 
a program for preparing income taxes? Contact 
IACU. 


ARTICLE TO BE PREPARED IF 
ENOUGH MEMBERS INTERESTED 


We received this generous offer from a member 
in Northridge, California 

The terminal | am using with my Cromemco 
System Three has 32 special function keys: 
(actually 16 keys.. each performing a second 
function when used with the shift key). 
CDOSGEN.COM and CDOS,COM version 2.17 will 
only support a maximum of 20 special 
functions.” 


‘Using the source file and information on CDOS 
1/0 DRIVERS furnished by Cromemco, | was able 
to modify the drivers to support the extra 
function keys . . . | wrote a program in SBASIC 
to insert the function key address and 
definitions into the CDOS 1/0 DRIVERS.” 

If there are enough members who have this 
problem . . . | will write an article on it.” 


Are there? Let us know 


SASKATCHEWANIANS NEED 
SOFTWARE 


From Regina, Saskatchewan came this very 
specific request: 


GAME SYSTEM 


Includes: 
Super Star Trek, 
Solar System 
Parachuting, Others. 
Requires 32k Basic, 
64k RAM. Shipped in 
source code on 
5” or 8” Disk. 
$7950 


BY CHECK OR MONEY ORDER 


Analytic Associates 
213-541-0418 


CROMEMCO 
CUSTOM 
SOFTWARE 
SPECIALISTS 


of Cromeme 


_ ware pack 
can help you define your requirem 
build and maintain the 


a Systems House or Dealer that doe 


Reporter (DBR), 


RELATIONAL 
DATABASE SYSTEMS, INC. 
1208 Apollo Way, Suite 503 
Sunnyvale, CA 94086 
(408) 746-0982 


bits & bytes. 


know of any applicable software. 


LAW OFFICE NEEDS 
BILLING PROGRAM 


w office in Northern Illinois would like 
are which will allow 
time- 

D like to see 
a multi-user word processor 
olunteers? Contact IACU. 


COMPENSATION + SOFTWARE 
EXCHANGE: 


n Arnprior, Ontario (Can 
find some way of c 
editorial mate’ 


ly like to do that. The @ 


s time. 
know that many 
are by people 


WEST LOS ANGELES GROUP 
UP AND RUNNING 


TIPS ON CDOS DISK CALLS 
The fc t Gunkel 


Thanks, Jim 
Ed. 


Wha 


capability can do for you 


The above diagram shows in a func 
tional way one of the most complete 
lines of computer cards in the industry. 

Look it over carefully. It could be well 
worth your while 

These are all cards that plug into our 
5-100 bus microcomputers. 

You can also assemble them into a 
‘custom system in convenient Cromemco 
card cages. 


MULTI-PROCESSING AND 
INTELLIGENT 1/0 

‘The range of capabilities and versatility 
you can draw upon is enormous, 

In processors, for example, you have a 
choice of CPU's including our extremely 
Useful new VO. Processor, This can be 
Used as a satelite processor to do offline 
processing, multiprocessing, and to form 
intelligent VO. It opens the door to a 
whole new group of applications and 
tasks. Ask us about it. 


HIGH RESOLUTION 
COLOR GRAPHICS 
‘Again, you can have beautiful high- 
resolution color graphics with our color 
graphics interface, You can select from 
‘over 4000 colors and have a picture with 
@ resolution at least equal to quality 
broadcast-TV pictures. 


You have an unprecedented selection 
of memory including our unusual 48K 


and 16K two-port RAMs which allow 
high-speed color graphics. 


LOTS OF STORAGE 

These days you often want lots of disk 
storage. So you can select from our disk 
controller card which will operate our 5° 
and 8" floppy disk drives (up to 1.2 
megabytes). Or select our WD! interface 
to operate our I1-megabyte hard disk 
drives, 

POWERFUL SOFTWARE AND 

PERIPHERAL SUPPORT 

There’s much more yet you can do 
with our cards. And, of course, there's an 
‘easy way to put them to work in our 8, 
12,, and 21-slot card cages. Our PSB 
power supply makes it simple to get the 
system into operation. 

Finally, Cromemco offers you the 
strongest software support in the industry 


Cromemco” 


ore 


with languages like FORTRAN, C, 
COBOL, ASSEMBLER, LISP, BASIC and 
others. There is also a wide choice from 
independent vendors, 

To top ital off, you can draw from a 
substantial array’ of peripherals: ter- 
minals, printers, color monitors and disk 
drives. 
CONTACT YOUR CROMEMCO REP 

There is even more capability than 
we're able to describe here. 

Contact your Cromemco rep now and 
set this capability working for you, 


[CROMEMCO COMPUTER CARDS 

1 PROCESSORS — 4 Miz 7-80 A CPU, single 
‘ard computer UO procestor © MEMORY — 
{Upto fh inching special 40K and 16K two- 
pon RAMS and our very” wellknown 
LBYTESAVERS® "with PROM pram 
capabity ® HIGH RESOLUTION. COLOR 
(GRAPHICS — our SOI ofers up to 758. 482 
pine! resolution, © GENERAL. PURPOSE 
INTERFACES —QUADART fourchannel serial 
communications, TU-ART two-channel 
fpuallel-and twochanne sea, BIO Bor 
parallel, 310 pon isolated paral, D+ 7A 
‘channel DYAand ADconverer,pinterinter 
face fly dik contin wah RS232 inter 
face and system, dlagromtes,wire-wrap, and 
‘extender card for ur development work 


1280 BERNARDO AVE. MOUNTAIN VIEW, CA 94040 + (815) 954-7400 
‘Tomorrow's computers today 


